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• 程序剖析与编程技巧 • 


中华学习机区位码转换成内码的方法 

南京大学朱国江孙建隆 


中华学习机汉 字&区 位码和内码是不同的，它们 
之间不存在-对应关系。 

例如，区位码为 01—05 时，对应的内码为$ 1 D — 
$ 2 1,两种码值之间相差 $1 C ; 区位码为06 —14时， 
内码为$23 — $2 B ， 差值为 $1 D , 区位码为15 — 27 
时，内码为 $2 D — $39,差值为 $1 E ; 区位码为 28— 
94时，内码为$ 3 B — $ 7 D , 差值为$ 1 F 。 

由此可见，内码从 $1 D — $7 D 中，不出现$22, 
$ 2 C , $3 A 这三个内码。而这三个内码正好是引号 
( w ) 、逗号（，）、冒号（：）所对应的代码。内码所以不采用 
上述三种编码，是为了避免引起字符串或程序混乱。例 
如，在 DOS 操作系统下，从软盘读取数据时，需要用逗 
号（，）和冒号（：）的代码来区分变量和语句。换句话说， 
这里的区位码不能和国标中的代码一样，而是经过转 
换得来的。 

综上分析，可知中华学习机 CEC — I 的内码（又称 
汉字内码），是将区位码进行修正而后得到的。修正的 
规律是将区（位)码先加上$ 1 C , 若结果丄$22,则加 
1，否则不加;若相加后的结果又厶 $2 C , 则再加1,反 
之不加;若相加后的结果又厶 $3 A , 则需再加1。掌握 
了这些修正规律，不难编写一个机器语言程序,实现区 
位码向内码的转换。 

程序： 


1000— 

A 0 

00 


LDY 

# $00 

1002— 

A 9 

00 


LDA 

# $00 

1004— 

B 9 

60 

10 

LDA 

$ 1060 , Y 

1007- 

18 



CLC 


1008— 

69 

1 C 


ADC 

# $ 1 C 

100 A 

C 9 

22 


CMP 

# $22 

100 C — 

10 

06 


BPL 

$ 1014 

100 E — 

20 

37 

10 

JSR 

$ 1037 

1011— 

4 C 

31 

10 

JMP 

$ 1031 

1014— 

69 

00 


ADC 

# $00 

1016— 

C 9 

2 C 


CMP 

# $2 C 

1018— 

10 

06 


BPL 

$ 1020 

101 A — 

20 

37 

10 

JSR 

$ 1037 


101 D — 

4 C 

31 

10 

JMP 

$ 1031 

1020— 

69 

00 


ADC 

# $00 

1022— 

C 9 

3 A 


CMP 

# $3 A 

1024— 

10 

06 


BPL 

$ 102 C 

1026— 

20 

37 

10 

JSR 

$ 1037 

1029— 

4 C 

31 

10 

JMP V 

$ 1031 

102 C — 

69 

00 


ADC 

# $00 

102 E - 

20 

37 

10 

JSR 

$ 1037 

1031— 

C 8 



INY 


1032— 

C 0 

5 E 


CPY 

# $5 E 

1034— 

DO 

CE 


BNE 

$ 1004 

1036— 

60 



RTS 


1037— 

20 

DA 

FD 

JSR 

$FDDA 

103 A — 

A 9 

AO 


LDA 

# $ A 0 

103 C — 

20 

F 0 

FD 

JSR 

$ FDF 0 

103 F — 

60 



RST 



为了运行程序一,应先将区位码 01 — 94(10 进制' 
数）改写成 $01-$5 E (]6 进制数）并存放在 $ 1060- 
$ 10 BD 单元中，作为一个资料表为程序调用。 


表: 


1060- 

01 

02 

03 

04 

05 

07 

06 

08 

1068- 

09 

0 A 

0 B 

OC 

0 D 

0 E 

OF 

10 

1070- 

11 

12 

13 

14 

15 

16 

17 

18 

1078- 

19 

1 A 

IB 

1 C 

ID 

IE ’ 

/IF 

20 

1080- 

21 

22 

23 

24 

25 

26 

27 

28 

1088- 

29 

2 A 

2 B 

2 C 

2 D 

2 E 

2 F 

30 

1090- 

31 

32 

33 

34 

35 

36 

37 

38 

1098- 

39 

3 A 

3 B 

3 C 

3 D 

3 E 

3 F 

40 

10 A 0- 

41 

42 

43 

44 

45 

46 

47 

48 

10 A 8- 

49 

4 A 

4 B 

4 C 

4 D 

4 E 

4 F 

50 

10 B 0- 

51 

52 

53 

54 

55 

56 

57 

58 

10 B 8- 

59 

5 A 

5 B 

5 C 

5 D 

5 E 




运行方法十分简单，在监控状态下敲入 1000 G〆 , 
屏幕上立即显示94个学习机内码。其值和表中区位 
码一一对应，从而实现了中华学习机区位码至内码的 
正确转换。 


• 程序剖析与编程技巧 • 


完善〈〈家庭档案》程序 


四川成都钢铁厂何剑 


本刊今年第一期《家庭档案》程序，经使用觉得不 
错。但有一点不令人满意。当使用中文文件名时，若程 
序要求输入文件名，则比较麻烦。 

通过对一些游戏盘菜单的分析，并经修改，使程 
序能自动査找 T 文件，并使用键选择并显 
示所有 T 文件名。当选中某一文件时，按回车键，即进 
入主程序。 

去掉原文10〜70语句，键入下列程序，程序合并 
(略）。要建立新文件，先按空格键，再输入文件名。 

10 THEN ： HGR 2： HOME ： O = 188： PRINT CHR 
$ ⑷ " CATALOG " 

20 FOR V = 5 TO PEEK (37 )：VTAB V：HTAB 4 
30 PRINT "["; CHR $ ( V + O );"]"; 

40 NEXT ： POKE -16368,0： K =192： V = V -4 
50 K = K + l : P = K -0 
60 V = V -1 :IF V = 0 THEN 180 
70 VTAB P ： HTAB 1 : GOTO 120 
80 T 1 $ = MID $ (7$，2，1): T $ = R 1 GHT $ (T $ ， 
33) 

90 C = ASC ( T 1 $ ) 

100 IFC = 212 THEN A = A +1： T $ ( A )= T $ 

110 GOTO 50 

120 T $ =，"'：BA = PEEK (40)+ PEEK ⑷ )*256 
130 FOR X = PEEK (36) TO 39 


140 C = PEEK(BA + X ) 

150 T$ =T$ +CHR$ (C) 

160 NEXT：RETURN 

180 HOME ： TEXT：POKE 1147,3:PRINT CHR $ (4) 
PR #3 ，，： PRINT: HOME 
190.DIM A$ (360)；ONERR GOTO 360 
200 D$ =CHR $ (4)；PRINT D$ ； w NOMON C,I,O w 
210 VTAB2:HTAB13:PRINT 〃家庭档案 " 

220 VTAB 4 : HTAB 7： PRINT " 中文状态下的顺序文 
，件" 

230 C = A ： A =1 : VTAB 8: PRINT " 请输入文件名 ：，， 

240 VTAB 8 ： HTAB15：PRINT CHR $ (29 );： PRINT T 
$ (A) 

250 VTAB8：HTAB 15：GET B$ 

260 IF B$ =CHR$ (13) THEN Q$ =T$ (A) ： FL$ 
=Q$ : GOTO 300 

270 IF B$ =CHR$ (8) THEN IF A>1 THEN A = A 
-1 ：GOTO 240 

280 IF B $ =CHR$ (21) THEN IF A<C THEN A = A 
+ 】 ：GOTO 240 

282 IF B $ =CHR $ (32) THEN VTAB8 ： HTAB15 ： 
PRINT CHR $ (11 )；： INPUT” ,Q$ : FL$ =Q$ : 
GOTO 300 

285 PRINT CHR $ (7)；GOTO 250 
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中文状态下列目录时紧凑显示格式 

华油局机关中学牛保军 . 

有的刊物曾介绍改变中文状态下列目录时显示的 
方法，但都比较麻烦，而且通用性较差。我通过对 
CATALOG 子程序的分析，只修改了三个数据，即可使 
APPLE I 在汉卡状态下一次满屏显示九个文件名后 


暫灯下来，桉任意键后再显示另外九个文件名，从而改 
变了中文状态下隔行显示目录的情 :兄。 

请在监控状态下键人 
* AE 17:19 〆 （ 〆 表示回车） 

* ADA 4： D〆 

* AE 3 D :9 〆 

或在程序中加入 POKE 44/152, 13： POKE 44605, 
9 ： POKE 44567,25 

此方法也追用于吴小北同志编写的超级软汉字系 
统。' 以上均在苹果机上通过。 
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•初学者园地 • 


Applesoft BASIC 入门(续) 


第六讲磁盘错误 


在实际工作中，出错是编程人员经常碰到的事。磁 
盘操作系统 （ DOS 3. 3或 ProDOS ) 的通讯性很强，遇有 
错误时，会显示出错信•息,尽管编程人员不欢迎出错信 
息，但出错误信息却是编好程序的得力助手。 

磁盘错误 I . 我们先介绍一组由于粗心而造成的 

错误。这是一些不能满足操作系统的基本要求而引起 
的操作错误，其根源是操作人员本身。 DOS . 3. 3或 
DOS 的出错信息会告诉你错在哪里。这与 Applesoft 的 
出错信息一样 ( Applesoft 出错信息前带问号 “?”， DOS 
出错信息前不带问号）。 

WRITE PROTECTED | 当 DOS 往加锁的磁盘 

(贴有写保护标签的磁盘)存储信息时，即出现此错误。 
五吋磁盘的写保护孔上贴有粘条时，即为加锁。三点五 
吋磁盘是拉动写保护开关，使写保护孔打开，则为加 
锁。 

I/O ERROR | 如果你试图读取磁盘信息而忘记 
把磁盘插入驱动器，即出现此错误。引起 I/O ERROR 
出错信息的原因 还有: 未关闭驱动器的门；磁盘损坏； 
格式化不正确，等等。 

NOT DIRECT COMMANd | 如果你试图使用立 

即执行方式命令(通过键盘执行的操作命令)来运行一 
个非立即执行命令，便会出现此错误。 

从性质上看，改正操作错误比较容易。上面这几个 
错误只要改正其岀错条件，再重新运行即可。 

SYNTAX error ] 在 Applesoft 中有语法错误 
SYNTAX ERROR , 在 DOS 中也会出现此错误。只要你 
在使用磁盘命令时犯了语法错误，就会出现这一司空 
见惯的出错信息。 

FILE NOT FOUND ] 磁盘命令中指明某一文件， 

而该文件在磁盘目录中又不存在，则出现 FILE NOT 
FOUND 出错信息。如果你忘记键入磁盘目录中出现的 
文件名，也会出现此错误。当然，也可能因为你意外地 
刪除了该文件或者更换了磁盘，而引起此错误。 

FILE LOCKEDl 加锁的磁盘文件是写不进信息 

的。在磁盘目录中，加锁的文件名前面有一个星号 
”。如果试图对加了锁的文件进行 WRITE , RE ¬ 
NAME , SAVE , BSAVE 或 DELETE 等操作，就会出现 
FILE LOCKED 的出错信息。 

DISK FULL | 如果磁盘已无多余的空间,而你仍 
然要往里面存信息，就会出现 DISK full 出错信息。 
这时会产生一个有趣现象 :文件 中的一部分内容在出 
现此出错信息之前即已存入了进去。因此，在显示磁盘 
目录时，有这一文件的名称，但它的内容并不全。因此， 
应当用 DELETE 命令刪除这个文件，把它存到其它有 
多余空间的盘上去。 


| RANGE ERROR ] 命令参数超出规定的范围，即 

出现此错误。有关的命令参数可用下述口决帮助 记忆: 
槽号卷号应记清， 

驱动器号辨分明。 

B ， R ， L ， A 值要牢记， 

正常操作有保证。 

槽号的范围是1至&，驱动器号是1或2。如果参数超 
出这个规定的范围，即会出现 range error 的出错 

f 言患、。 

U B 表示字节， R 表示顺序文件的相对或绝对字段、 
随机文件的记录数， L 表示随机文件的记录长度、二进 
制文件的字节数, A 表示二进制文件的开始地址。其中 
B ， R ， L 不应超过32767,最小为 0( L 例外,最小为1)。八 
的范围为0-65535。 

VOLUME MISMATCH | 在 DOS 3. 3下，当磁盘初 

始化时应给磁盘卷号赋值，卷号范围是0—254。如果磁 
盘操作命令中的卷号与赋值卷号不一致，就会出现 
VOLUME MISMATCH 岀错信息。如果卷号超出 0-254 
的范围，则会出现 range error 出错信息。 

如果在程序行中出现梢号8〜16,则出现 SYNTAX 
ERROR 错误，而不出现 RANGE ERROR 。 同样，如果在 
程序行中出现小于0或大于65535的命令参数,也出现 
SYNTAX ERROR 错误,而不是 RANGE ERROR 错误。 

END OF data | 如果你试图检索比原来存的文 
件更多的信息时，就会出现 END OF DATA 错误。它常 
出现在 INPUT 和 GET 语句之后，而且常是文件指针 
复位失败造成的。 

|NO BUFFERS available ] 这一出错信息出现 

在没有输入输出操作所需要的另一个缓冲区时(缓冲 
区是内存中的一个区域，是为向磁盘输入或输出信息 
而设置的）。当程序中打开了多个文件而忘记关闭它们 
时，常出现此岀错信息。 

FILE TYPE MISMATCH ] 当磁盘命令与现有文 

件类型不一致时，即出现此错误。例如， Applesoft 文件 
用 BRUN 命令，二进制文件用 LOAD 命令时，即出现 
此错误。这时，应査看一下磁盘目录，明确其文件类型， 
解决此问题。 

PROGRAM TOO LARGE | 当磁盘命令试图运行 
一个大程序而内存容量不够时，即出现此错误。 

纠错方法 I 上面讨论的各种错误，可以用以下 
方法来改正。首先，要明确产生错误的根源及错误的性 
质。出错信息的英文提示是有字面含义的，它能告诉你 
错误是哪种错误。在许多情况下,检査一下出错行或语 
句，很快便会发现错误的原因。 

有些问题，如 DISK FULL ， 与程序行无直接关系， 
它反映了硬件配置问题，因此应在程序调试过程中时 
刻记取此事。消除硬件配置方面的问题的关键于直接 
参加操作。在磁盘存满之前检查它，确定驱动器设置正 
确无误，等等。当出现出错信息后你能够消除它时，你 
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的纠错能力便提高了一大步。 

由于许多错误是键盘打字差错造成的，因此必需 
熟悉必要的格式与语法要求，这样，消除错误就比较容 
易。避免打字错误的关键是认真进行校对。 

另一种防止错误的方法是经验。随着经验的增多， 
解决问题的本领就提高。例如，你可能发现，最易出问 
题的地方是随机文件的建立与处理。如果确实如此，最 
好多花费一些时间去练习随机文件。经验会告诉你长 
处与短处。花力气去克服短处，错误的出现率便会大大 
降低。 

小结 | 上一讲，我们介绍了 Applesoft 语言方面的 
错误。这一讲,我们讨论了磁盘错误。这两钟错误概括 
起来，可以称为“飞行员错误 '在飞 机飞行事故中，如 
果发动机运行正常，无线电通讯畅通，事故原因很可能 
出在飞行员操作失误方面。程序错误与此类似，如果硬 
件工作正常，其它问题很可能出在编程人员身上。但 
是，并非所有错误都是“飞行员错 '误” 。还有一类属于过 
程错误，它比较复杂。下一讲，我们将探讨它。 

本讲内容简表 


纠错关键 

1. 参加操作。参加操作，防止如 DISK FULL 等硬件设 I 
置方面的错误。 

2. 校对。由于许多错误出于打字差错，认真校对 能大: 
大减少打字方面的错误。 

3. 经验。经验最为重要，无法用其它方法代替。应从 
实际经验中找出最易岀错之处，细心处理。 


磁盘出错信息 
WRITE PROTECTED 
NOT DIRECT COMMAND 
SYNTAX ERROR 
FILE NOT FOUND , 

FILE LOCKED 
DISK FULL 
RANGE ERROR 
VOLUME MISMATCH 
PATH NOT FOUND 
END OF DATA 
NO BUFFERS AVAILABLE 
FILE TYPE MISMATCH 
PROGRAM TOO LARGE 


第七讲不显示出错信息的错误 

现在，你已经进入软件侦错的提高课。所有编过程 
序的人都有这样的切身体会 :许多 事情并不按’原先予 
想的那样发生。特别是一些过程或文件的操作既不按 
预想的方式进行，又不出现任何出错信息。 

这一讲要讲的内容便是排除错误和控制错误的问 
题。我们将介绍捕捉错误的方法及有效运用这些方法 
的步骤，看一看检查程序是否正确运行的命令及步骤， 


最后，简要介绍一些如何防止过程错误的一般的编程 
技巧。 

捕捉错误 f 解决错误问题的关键是防止错误的 
产生。这一点说起来容易，做起来难。因此，还是用一些 
编程方法来帮助我们防止错误的产生。 

比如，我们打算用 print 语句从键盘上限定输入 
数字] 到10。如何防止输入11以上的错误呢?很容易。请 
看例一： 

例一： 

10 PRINT "ENTER A NUMBER FROM 1 TO 10" 

20 INPUT A 

30 IF A >10 THEN PRINT " THAT，S MORE THAN 
10〃 : PRINT "TRY IT AGAIN . " : GOTO 10 
40 PRINT " THANKS ， I NEEDED THAT I " 

50 END 

在例一中，如果你输入的数小于程序就向下运 
行。如果你输入的数大于10,程序就不向下运动，重返 
第10行。但是，有些机灵的人可能输入一个零或负数， 
这时，程序也会向下运动。我们再扩大一些捕捉错误的 
范围，解决零和负数的问题。请看 例二： 

例二： 

10 PRINT "ENTER A NUMBER FROM 1 TO 10" 

20 INPUT A 

30 IF A > 10 THEN PRINT " THAT，S MORE THAN 
10" .PRINT 〃TRY IT AGAIN . " : GOTO 10 
40 IF A <1 THAN PRINT "THAT S LESS THAN 1 " : 

PRINT "TRY IT AGAIN . " : GOTO 10 
50 PRINT " THANKS . 1 NEEDED THAT !" 

60 END 

请运行这两个短程序，看它们是否能捕捉可能出 
现的错误。你是否还能想出别的方法来捕捉错误呢?让 
我们再进一步改进捕捉错误的方法。请看 例三： 

例三： 

10 PRINT "ENTER A NUMBER FROM 1 TO 1 0" 

20 INPUT A - 

30 IF A <1 OR A >10 THEN PRINT "THAT S NOT 
BETWEEN 1 AND 10_' PRINT " TRY IT A - 
GAIN . " .GOTO 10 

40 PRINT " THANKS . I NEEDED THAT I w 
50 END 

例三也能完成上面的工作，但它采用了检査八的 
值大于或小于限定值的一行程序，比上面的程序减少 
了一行。注意，第30行只有当 A 的值在限定的范围内 
才向下运行，否则重返第10行。 

假若上面提到的机灵人试图输入一个字母或控制 
字，而不输入数字，怎么办? A PP lesoft 会来解难。因为 A 
必须是数字，故没有必要来捕捉字母这种错误。总之， 
这里只举了一个简单的例子，但其原理适用于各种复 
杂的程序。 

检査键盘回答正误有各种各样的情况。只要正确 
地编写捕捉错误子程序，可以检查各种键盘回答正误 





情况。采用简单的 INPUT 或 GET 子程序往往会节省 
以后在程序运行中检查正误的许多时间。 

我们再看另一个例子。假设你的程序要处理一个 
字符串，字符串的字符数限制在10个以内。最简便的方 
法是在输入中保证字符串长度不超过10个字符。请看 
例四： 

例四： 

10 PRINT "TYPE YOUR FIRST NAME ." 

20 PRINT "(10 CHARACTERS OR LESS )" 

30 INPUT N $ 

40 IF LEN(N $ )>10 THEN GOTO 20 
50 REM BALANCE OF PROGRAM 

这个子程序保证，当回答超过 10 个字符时，出现另 
一种 提示： “（〗0 CHARACTERS OR LESS )" ( 10个或 10 
个以下字符5。注意，这里又一次重复程序开始时的提 
示，而未采用另外的错误揭示。使程序提示具有双重含 
义，是有效利用程序行的一种方法。当然，这里也可以 
用增加一条错误揭示信息的方法，如，令用户 
"TRY AGAIN " (再试一次）或者“ ABBREVIATE IF 
NECESSARY " (必要时缩减字符）。 

限制计数、检査数据段的字符错误仅是两个例子， 
捕捉错误可用在其它许多地方。它的目的是把可能出 
现的问题在发生之前捉到，防患于未然。而错误处理则 
是治病良药。捕捉错误的过程并不复杂，只要你预先想 
到可能出现的问题，并在编程时加以相应处理即可。 

当捕捉程序中每一个可能的错误成为明确的目标 
时，它就能真正达到。但是，如果你设想了可能出现的 
错误，并用不正确的回答再测试程序时，则要用很长的 
时间来反复探寻处理错误的方法。请你试用不正确的 
回答来轰击你的程序，每一次有效的轰击，增加一些解 
决问题的办法，从而就提高了你的编程能力，编出的程 
序将获得很大好处。 

有效捕捉错误原 If ] 下面概要介绍有效捕捉错 
误的原则。毫无疑问，你还会增加一些原则。 

1. 为捕捉程序错误，应当熟悉程序要求回答的各 
种类型。 

2. 捕捉错误的过程应考虑用户可能作出的回答的 
全部范围。例如，如果程序提示用户输入其姓名，那么 
输入命令就不应接受数字回答。 

3. 捕捉错误过程中产生的揭示信息应向用户指明 
回答错误的原因，并提供另一个正确回答的机会。 

4. 捕捉错误的结果是防止因不正确的操作而产生 
程序错误或过程错误。 

5. 捕捉错误子程序一般对程序的用户是看不到 
的，遇到不合适的条件时例外。 

6. 捕捉错误子程序应尽可能容易、有效，你不能设 
想预见到每一种可能的意外，但要能抓住重点。 

错误的处理 | 如果你的捕捉错误步骤正确，程 
序中便不会有许多无意的错误。这是什么意思呢?错误 
条件一般指由于某一无法解决的问题使过程不能完成 
或程序功能不得实现。通常错误条件会产生一条标准 


的出错信息，一旦出现出错信息，所有程序操作即停 
止。 

如果我们在程序停止之前中止发送出错信息，提 
供一些补救的办法解决问题，便可使程序继续运行。这 
些补救办法称为错误的处理。错误的处理是在不丢失 
数据的情况下解决简单问题的方法。 

PEEK 和 POKE ] 为了不中断程序而处理错误， 
需要学习 Applesoft 的两个新的 语句: PEEK 和 POKE 。 
这两个语句用来直接读、写内存中的数据。例如 ，Z = 
PEEK (222) 这一语句是读取内存中第223个字节 （0 是 
第一个 字节） ，并把这个字节的值赋给变量 Z 。 由于苹 
果机内存是编成0到65535个数，这个范围内的任何数 
在 PEEK 语句中都是合法的。同理，由于一个字节只能 
含有0到255个值，因此， PEEK 语句只能处理这个范围 
内 的数。 

POKE 语句用来往内存中的某一字节写入数据。 
例如 ， POKE 768，13, 是把 13 这个值写入内存中的第 
769 个字节。同 样， POKE 第一个参数的有效值范围在0 
到 65535 之间，第二个参数的有效值范围在0到 255 之 
间。由于 内存中 53248以上 是只读 存储器 ( ROM)，POKE 
入这个范围内的值是无效的。 

你可以安全地 PEEK 内存中的任何地址，但是要 
当心 POKE 的用法。因为允许 POKE 入 RAM 中的任 
何地方，如果你 POKE 入磁盘操作系统代码区或你的 
Applesoft 程序区，则将产生一些奇怪的结果。 

VERIFY ! 另一个不中断程序而捕捉错误的语句 
是磁盘命令 VERIFY 。 在 ProDOS 下，此命令直接査找 
磁盘上是否有某一文件。在 DOS 3. 3下，它读取该文 
件，检査是不是有该文件。在实际中，此命令适用于以 
上两种操作系统。使用此命令时，可用下面的 语句： 
PRINT CHR $ (4 ) w VERIFY 文件名” 

其中“文件名”是你要核对的文件名称。假若不出 
现出错信息。说明该文件存在。、 

在继续往下讲之前，让我们先来看一看处理错误 
的子程序。它是这样 的:要 建立一个含有各种项目的数 
据文件。如果磁盘上已有同名的文件，就不建立新文 
件。如果磁盘已经存满，用户将得到另换一张新盘的提 
示。其它错误则将停止程序运行。怎样建立这个子程序 
呢?请键入本讲所附的 Listing 〗 清单，并用以下命令存 
盘。 

SAVE VERIFY . DEMO 

这个子程序和上面介绍过的捕捉错误子程序不一 
样。10 — 60行是一个要求你输入文件名并检査磁盘上 
有没有该文件的简单的程序。在第20行，如果遇到一个 
错误，程序将转向第100行，而不是象捕捉错误那样给 
出出错信息。 

错误处理可以是简单的，也可以是复杂的，任你确 
定。我们这个例子中列举了两种常见的 错误 ： FILE 
NOT FOUND 和 DISK FULL 。 

如果在内存地址 222 测出的错误代码为 b ， 表明磁 
盘上没有输入的文件名。这时就应提供一个改变这个 






文件名的子程序或者用该名称建立一个新文件的子程 
序。如果在建立文件的过程中磁盘存满，则应提供一个 
删除这部分文件、并在另一张盘上建立完整的新文件 
的子程序。在本例中，任何其它的错码代码都产生一 
个 "PROGRAM TERMINATED BY ERROR " (程序因错 
中止)的信息，程序结束。有关错误代码请参见表一。 


表一:错误代码数字 


磁盘错误 

Applesoft 错误 

1 Language Not Avail- 

0 Next Without For 

able (d) 

16 Syntax Error 

2 Range Error (d) 

22 Return Without Go- 

3 No Device Connected 

sub 

(P) 

42 Out of Data 

4 Write-Protected 

53 Illegal Quantity 

5 End of Data 

69 Overflow 

6 File (d) or Path (p) 

77 Out of Memory 

Not Found 

90 Undef\l Statement 

7 Volume Mismatch (d) 

107 Bad Subscript 

8 I/O Error 

120 Redim’d Array 

9 Disk Full 

133 Division by Zero 

10 File Locked 

163 Type Mismatch 

11 Syntax Error (d)/In- 

176 String Too Long 

valid Option (p) 

191 Formula Too Com- 

12 No Buffers Available 

plex 

13 File Type Mismatch 

224 Undef’d Function 

14 Program Too Large 

254 Re-enter 

15 Not Direct Command 

255 Break ( Control- 

17 File Not Open (p) 

Cpressed) 

18 File Not Open (p) 


19 Duplicate File Name 


(P) 


20 File Busy (p) 


21 File Still Open 

* 

注 ：（ d)DOS3. 3 适用 


(p)ProDOS 适用 



从以上几讲介绍过的各种出错信息可以看出，谁 
也不愿意编写处理各种可能的错误的子程序。绝大多 
数错误处理子程序都是只针对某些最常见的错误，其 
余则给出标准的出错信息。 

错误处理子程序:指导原则 I 错误处理如果使 
用得当，可成为有力的编程工具，如果使用不当，也会 
成为令人厌恶的事情。学好它的最好方法是实验和经 
验。下面几条原则可供 参考： 

1. ONERR GOTO 语句设定程序转移的行号，当遇 
到错误时，程序的执行转向最近的 ONERR GOTO 语 
句设定的行号，与错误的位置无关。 

2. ONERR GOTO 命令应当在遇到错误之前执行。 


3. 表示遇到的错误的代码含在内存地址222处。欲 
查看错误代码可用 PEEK (222)( 参见表一）。 

4. 处理 FOR - NEXT 循环中遇到的问题的子程序 
在解除了错误以后应当重新开始循环。如果不重新开 
始循环，继续下去，则会出现 NEXT WITHOUT FOR 错 
误，使程序中断。 

5. 在错误处理子程序的末尾可以使用 RESUME 
把程序返回到出现错误的起始处运行，但要十分当心， 
因为有时 RESUME 可能把程序置于无穷尽的循环中。 

6. 用 POKE 216,0结束错误处理子程序，恢复正常 
的出错信息操作。 

7. 错误处理子程序应能判明并解决提到的各种问 
题。程序应在合适的地点重新执行，防止发生进一步的 
难题。 

错误处理子程序可以带来帮助，使用户避免一些 
困扰，但它也可能带来一些问题。运用错误处理时的首 
要问题是予计程序执行中可能出现的意外，并据此编 
写相应的处理程序。 

[原因所在 I 编程人员经常要査清某一程序产生 
的结果的原因。程序行可能没有错误，但仍得不到满意 
的结果。那么，到底原因何在呢？ 

TRACE 和 SPEED | Applesoft 有几个命令帮助你 

査看程序的运行，使你能在运行中解决问题 。 TRACE 
命令可用于立即执行方式和非立即执行方式，它使每 
一行的行号在执行时显示在屏幕上。虽然这样作破坏 
了屏幕格式的美观，但对找到出错的行号却有很大帮 
助 .NOTRACE PIIJ 中止 TRACE 功能。 

还记得前边介绍过的 SPEED 命令吗？如果我们 
把运行速度放慢，往往就比较容易弄清发生了什么事 
情。使用这个命令时，只需键入 SPEED =( 当处于立即 
执行方式时)后跟一个0到255的数，0为最慢，255最快。 
把 TRACE 和 SPEED 两个命令结合在一起使用，你便 
能一步一步跟踪程序的执行。 

MON 和 NOMOnI 在 DOS 3. 3下，可以用 MON 
和 NOMON 命令来监视磁盘的操作。 MON 比 TRACE 
的功能更强，它.能让我们选择三个参数进行 监视 : C 
(显示所使用的 DOS 命令 ），1( 显示由磁盘文件读入主 
机的信息），和 0( 显示由主机输出到磁盘的信息）。命 
令的格式为(假设三个参数都要的 话 ）: MON C , 1,0或 
者 NOMON C , 1,0。三个参数可自由组合，但至少要用 
一个参数。若一个参数都不出现，则 MON 不起作用。 
如果 MON C , 1,0起作用，那么，从一个 DATA FILE 文 
件中读取五个数，你可在屏幕上看到这些命令和数据， 
见图一。 






OPEN DATA FILE 

READ DATA FILE 

7. 5 

3. 25 

77. 6 

57.9 

42 . 1 , 

CLOSE DATA FILE 

图一 

显示命令和数据对调试程序特别有用。 MON 命令 
和 TRACE 配合使用，使你能准确地看清每一步程序 
在做什么。在 DOS 3. 3下，发出 MON 命令之前要关掉 
TRACE 。 在 ProDOS 下，没有 MON 命令，但 TRACE 有 
效。请你练习这两个命令调试你的程序。 

避免过程错误 | 本讲前面曾提到 ：在执 行程序 
时要避免过程错误。什么是过程错误?过程错误是一种 
粗心错误，而不是主要编程错误。它往往是由粗心大意 
造成的，很难发现。许多过程错误从表面上看不出来， 
也没有出错信息，因为这类语句一般没有语法错误和 
标点符号错误。 

避免过程错误的最好方 法是: 编写程序时要当心， 
不出任何错误。这说起来容易，做起来难。很少遇到从 
未出过错误的编程人员。有一些地方比较起来最易出 
错，下面是我们在程序中发现的一些过程错误，可作为 
你捕捉错误的 参考： 

】•注意数清数字表达式左、右两边的括号，保证其 
相等。这样可以使你用人工的方法检査表达式的括号 
数，以期达到予想的运算结果。 

2•在 Applesoft 中为一些运算的四舍五入结果加 
上0.000001。 • 

3. 数组易出错。最简便的办法是把它限定在一维 
数组和二维数组。 

4. 注意变量赋值，防止在程序执行过程中出现因 
漫不经心而造成的变 M 重复赋值。你是杏用 FOR 1 = 0 
TO 10来设置 FOR - NEXT 循环？既使我们力求避免把 
同一个变董名使用两次，但也时常发现在一个循环中 
重复使用了同一个变量（ I )。 

5•如果在变邊名中使用了 Applesoft 的保留字，常 
常会出现奇怪的结果。避免出现这种现象的最好办法 
是熟悉保留字，不用它们作变量名。 

6. 磁盘命令之前应当用回车。若不按此要求做，当 
你在 GET 提示后使用磁盘命令时，会带给你许多头痛 
事。通常的回答是在屏幕上显示磁盘命令名。解决的办 


法是 :在每 一磁盘命令之前加上 PRINT : 命令。 例如: 
PRINT：PRINT CHR $ (4) ; 〃RUN DEMO " 0 

7. 标点符号和语法在磁盘命令中特别重要。如果 
你在一行中使用了几个磁盘命令而未正确运用双引号 
的话，将会产生一些非常有趣的结果。 

我们还可以开列更多的清单，但对你来说，这些已 
经够用了。每一个编写程序的人,不论是初学者，还是 
有经验的专家，头脑中都应有一张容易出错处的清单。 
在调试程序时，对清单中每一个项目都要给予重视 。一 
旦你心中清楚哪些地方容易出错，程序的调试和编辑 
过程将变得易如反掌。 

H 我们介绍了一些在不损失程序功能或数 
据的情况下消除或限制可能出现的错误的方法。避免 
出现一切错误是我们的总目标，但很难一下了达到。学 
会如何捕捉错误、处理一些最常见的程序错误，弄清容 
易出错的一些地方，将会节省你 ftt 的调试时间。 
Listing 1: VERIFY . DEMO 
10 D $ = CHR $ (4) 

20 ONERR GOTO 100 

30 INPUT "NAME OF DATA FILE" ； F$ 

40 PRINT D $ ;" VERIFY " ;F $ 

60 END 

100 Y = PEEK (222 )：REM READ ERROR CODE 
110 IF Y = 6 THEN PRINT w THERE IS NO FILE BY 
THAT NAME ON " : PRINT " THIS DISK . OK TO 
CREATE ONE ?" : GOTO 200 
120 IF Y = 9 THEN PRINT " THIS DISK IS FULL . 
PLEASE INSERT A 〃： PRINT " FRESH DATA DISK 
IN THE DRIVE AND " : PRINT " TRY AGAIN ，： 
GOTO 300 

130 POKE 216,0： REM RESET THE ERROR FLAG 
140 PRINT "PROGRAM TERMINATED BY ERROR ." 
150 END 

200 PRINT ： PRINT" (ROUTINE TO GET RESPONSE 
AND CONTINUE. : END 

300 PRINT ： PRINT " (ROUTINE TO DELETE FILE , 
CHANGE DISK ，" ： PRINT，'AND TRY AGAIN . ) w : 
END 

冯静 

译自 《 NIBBLE 》， 1990， 

N 3， P 34 — 38 
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APPLE 软磁盘老化及故障扇区的检测 

同济大学电气系吴顺华 


一张新磁盘，由于使用保管不当，可能沾有灰尘， 
受到折划等而引起损伤;或者虽保养较好，但经较长时 
间使用后，磁盘也将自然老化，渐渐不能使用了。这时 
磁盘上程序和数据信息将会丢失,那是很伤脑筋的事。 
因此在实际使用中很希望能预先知道磁盘的老化程度 
或损坏情况，以便及时作出“抢救”。我们通过对 ap ¬ 
ple I DOS 的分析，可以知道 APPLE H 在读取数据信 
息时，由于磁盘机运行不稳或各种干扰及盘片本身老 
化等问题，往往不是一次就成功的。常需重复多次读取 
才能成功。 DOS 中通常先重复读取48次，若仍无法读 
取，就使磁头恢复零位置,再重新到该扇区试读48次， 
共96次，如均告失败, DOS 就认为不能正常读取而产 
生 I / OERROR 岀错信息。 

利用这个特性，可由 DOS 读取次数来判断磁盘的 
老化程度。对于读取次数超过16次（$ 10) 的磁盘，说明 
性能已有些问题要引起注意；而读取次数超过次 
( $ 30,会听到磁头回零的声响）的磁盘，则老化已很严 
重,一定要拷贝一张新盘片了。 

附录程序一，就可测试磁盘当前读取扇区的老化 
程度。 DOS 中有一个计算磁盘读取次数的单元 
($ 578), 初值为 $30, 采用减、计数。如将 $30 来减 
$578 单元的值，其差就是读取磁盘次数。程序一在屏 
幕左上方第一行可显示出当前扇区读取次数(十六进 
制数），而且可在屏幕右上方第一行显示出当前读取的 
磁道号(十六进制数），其中屏幕上标头部分均用反显 
方式，以示醒目。显示备式 如下： 

READ-OK COUNT | = X X | PRESENT TRACK 卜 X X 

程序一（目标代码），取名 TEST DISK - OBJ 存盘。 
在 DOS 状态下 , BRUN TEST DISK . OBJ〆 即可测试磁 
盘老化程序。 

以后每次进行磁盘上其他文件的操作（只要不破 
坏以$ 300开始的本程序），在屏幕最上方一行就可随 
时看到当前读取磁盘扇区的老化程度。即使更换磁盘 
也不用重新执行该程序。一旦发现当前读盘显示值过 
大（超过 $30) 表示正使用的磁盘已有问题。用上述程 
序一测试磁盘老化程度是方便的，但不足之处是还不 
能正确判断出磁盘上哪一扇区有问题而不能正常读 
取。程序二则可检测整个磁盘。它从0号磁盘、0号扇区 
开始，逐一读取每个扇区，若无法读取时，显示故障部 


分的磁道号、扇区号。如果在程序一运行后，接着执行 
程序二(这里为 BRUN TEST TRACK/SECTOR • OBJ ) 。 
根据屏幕上提示，插入需要测试的磁盘,然后按下回车 
键，屏幕最上方一行就显示该磁盘当前读取扇区的老 
化程度，而屏幕中间部分则把有故障的磁道号、扇区号 
—显示出来(没有故障的磁道、扇区，不作任何显示， 
但屏幕最上方会看到磁道号在逐一增加、读取次数不 
断变化，直到全部磁道测试完毕）。当检査完一张磁盘， 
屏幕提示可继续更换其他磁盘再测试。如不需再测试 
其他磁盘，按任一键即返回 DOS 状态。以上程序可在 
不破坏磁盘上原数据信息情况下方便地测试盘片老化 
程度及损坏情况。适合于 Apple H 及其兼容微机在 
DOS 下应用，实际使用效果良好。 


程序一： 









300— 

A 9 

20 

8 D 

C 9 

DD 

A 9 

53 

8 D 

308— 

CA 

DD 

A 9 

03 

8 D 

CD 

DD 

A 9 

310— 

7 B 

8 D 

*6 E 

DE 

A 9 

03 

8 D 

6 F 

318— 

DE 

A 9 

02 

85 

22 

A 2 

00 

BD 

320— 

2 B 

03 

9 D 

00 

04 

E 8 

E 0 

28 

328— 

D 0 

F 5 

60 

12 

05 

01 

04 

2 D 

330— 

OF 

0 B 

20 

03 

OF 

15 

0 E 

14 

338— 

3 D 

A 0 

A 0 

A 0 

A 0 

A 0 

A 0 

A 0 

340— 

A 0 

10 

12 

05 

13 

05 

0 E 

14 

348— 

20 

14 

12 

01 

03 

0 B 

3 D 

A 0 

350— 

A 0 

A 0 

A 0 

A 9 

30 

38 

ED 

78 

358— 

05 

48 

4 A 

4 A 

4 A 

4 A 

09 

B 0 

360— 

C 9 

BA 

90 

02 

69 

06 

8 D 

0 E 

368— 

04 

68 

29 

OF 

09 

B 0 

C 9 

BA 

370— 

90 

02 

69 

06 

8 D 

OF 

04 

CE 

378— 

78 

05 

60 

48 

4 A 

48 

4 A 

4 A 

380— 

4 A 

4 A 

09 

B 0 

C 9 

BA 

90 

02 

388— 

69 

06 

8 D 

24 

04 

68 

29 

OF 

390— 

09 

B 0 

C 9 

BA 

90 

02 

69 

06 

398— 

8 D 

25 

04 

68 

4 C 

8 E 

BE 


程 序二: 









6000— 

4 C 

EE 

61 

00 

06. 

OC 

02 

08 

6008— 

0 E 

04 

0 A 

01 

07 

0 D 

03 

09 

6010— 

OF 

05 

0 B 

EA 





6025— 

27 

60 

2 F 
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6028— 

61 

65 

61 

6 C 

61 • 

7 F 

61 

C 9 

61 D 8— 

07 

A 2 

00 

A 1 

06 

C 9 

DE 

F 0 

6030— 

CE 

D 3 

C 5 

D 2 

D 4 

A 0 

C 4 

C 9 

61 E 0— 

OC 

20 

ED 

FD 

E 6 

06 

DO 

F 3 

6038— 

D 3 

CB 

BB 

A 0 

D 4 

C 8 

C 5 

CE 

61 E 8— 

E 6 

07 

4 C 

DB 

61 

60 

08 

48 

6040— 

AO 

C 8 

C 9 

D 4 

A 0 

D 2 

C 5 

D 4 

61 F 0— 

98 

48 

A 2 

10 

BD 

E 8 

B 7 

9 D 

6048— 

D 5 

D 2 

CE 

A 0 

D 4 

CF 

A 0 

D 4 

61 F 8— 

14 

60 

CA 

10 

F 7 

A 9 

00 

8 D 

6050— 

C 5 

D 3 

D 4 

AE 

AE 

AE 

AC 

CF 

6200— 

EC 

B 7 

8 D 

13 

60 

A 9 

00 

20 

6058— 

D 4 

C 8 

C 5 

D 2 

A 0 

D 4 

CF 

A 0 

6208— 

C 7 

61 

AD 

10 

CO 

AD 

00 

CO 

6060— 

C 5 

CE 

C 4 

AE 

DE 

C 5 

D 2 

D 2 

6210— 

10 

FB 

C 9 

8 D 

F 0 

1 C 

A 2 

10 

6068— 

CF 

D 2 

A 0 

DE 

A 0 

C 6 

CF 

D 5 

6218— 

BD 

14 

60 

9 D 

E 8 

B 7 

CA 

10 

6070— 

CE 

C 4 

A 0 

C 6 

CF 

D 2 

A 0 

D 4 

6220— 

F 7 

AD 

10 

CO 

A 2 

00 

A 9 

8 D 

6078— 

D 2 

Cl 

C 3 

CB 

A 0 

DE 

A 0 

AC 

6228 — 

9 D 

00 

02 

68 

A 8 

68 

28 

4 C 

6080— 

A 0 

D 3 

C 5 

C 3 

D 4 

CF 

D 2 

A 0 

6230— 

03 

E 0 

20 

8 E 

FD 

AC 

13 

60 

6088— 

DE 

A 9 

01 

8 D 

F 4 

B 7 

AD 

25 

• 6238— 

B 9 

03 

60 

8 D 

ED 

B 7 

20 

89 

6090— 

60 

8 D 

F 0 

B 7 

AD 

26 

60 

8 D 

6240— 

61 

90 

20 

48 

A 9 

01 

20 

C 7 

6098— 

FI 

B 7 

AD 

EC 

B 7 

30 

24 

C 9 

6248— 

61 

68 

20 

DA 

FD 

A 9 

02 

20 

61 AO - 

23 

10 

20 

AD 

ED 

B 7 

30 

IB 

6250— 

CC 

61 

AD 

EC 

B 7 

20 

DA 

FD 

61 A 8— 

C 9 

10 

10 

17 

A 9 

00 

8 D 

EB 

6258— 

A 9 

03 

20 

CC 

61 

AD 

ED 

B 7 

61 BO - 

B 7 

20 

E 3 

03 

18 

20 

D 9 

03 

6260— 

20 

DA 

FD 

EE 

13 

60 

AD 

13 

61 B 8— 

A 9 

00 

85 

48 

B 0 

01 

60 

AD 

6268— 

60 

C 9 

10 

DO 

C 8 

A 9 

00 

8 D 

6 ICO — 

F 5 

B 7 

60 

A 9 

00 

38 

60 

48 

6270— 

13 

60 

EE 

EC 

B 7 

AD 

EC 

B 7 

61 C 8 — 

20 

8 E 

FD 

68 

0 A 

A 8 

B 9 

27 

6278 — 

C 9 

23 

DO 

B 9 

4 C 

FD 

61 

00 

6 1 D 0— 

61 

85 

06 

C 8 

B 9 

27 

61 

85 













读者点题 编者征稿 


问 题一： 

汇编语言画图的详解 

天津十九中 何新生 

问 题二： 

DFFF 〜 FFFF RAM 辅存的使用 

济南光学仪器厂 张欣 

问 题三： 

介绍各种 COPY 程序的特点 

华中师大物理系 龙传安 

问 题四： 

在汉字系统下编写的各种 BASIC 程序的编译 
问题。 

佛山市家用电器工业公司 白瑞金 

问 题五： 

请介绍 PRODOS 的使用方法。 

杭州华丰達纸厂 徐浩雄 

问 题六： 

有无利用中华学习机游戏接口进行控制系统 
A/D 转换的可 能性? 其精度 如何? 请系统介绍用中 
华学习机进行控制等各方面的方法和过程。 

杨州市卫生防疫站 徐故杨 


我校使用的 CP —135打印机，只能打印 CEC-I 
机的5〜16号字且 POKE 1915, n 语句无用，无论 N 
为多少，行距始终为1;打印图形时，开机后第一次 
总是打印第一页，并且打一行走一行， POKE 1913 ，n 
无用，但打印第一次之后，一切正常。此问题能否解 
决。 

四川万县市初二中学 易忠友 

问 题八： 

请介绍九针打印机知识，并向我们推荐购买机 
型。 总后医院专科学校 邢菁 

问 题九： 

Apple H e 如何利用和发挥 64 K 辅存的作用。 

国营八九九厂 梁上玉 

问 题十： 

在 APPLE SOFT BASIC 状态下，使用随机文件 
时，记录长度本已经有过精确计算，但在大批量数 
据录入时，常在五百号以上的记录中发现纪录超长 
导致存盘数据丢失，甚至使该文件后半截“乱套”， 
只好采取 L 值加大10位的办法解决，但这又浪费了 
磁盘空间，对此，不知有何解决办法？。 

新疆八一农学院 张胜光 


问题七: 
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电工学电路分析自学系统 

86004部队宋辉 

目前，计算机辅助教学已广泛应用于各学科。但手 
段大都局限于用计算机在课堂上进行原理演示和物理 
特性的分析。如果能在自学书本知识的基础上，自选习 
题，在计算机上进行人机对话式的学习，对巩固所学知 
识，培养独立分析问题的能力，必会起到事半功倍的故 
果。本文将全面地介绍在电工学中实现这一设想的软 
件系统。 

— 、设计思想 

电工学是一门理论性很强的专业基础课。它的任 
务是使学生在掌握电路基本概念的基础上，具备对各 
种电路进行分析和计算的能力。根据这一特点，我们把 
各种电路的稳态分析和计算作为本系统的主要研究对 
象。在程序设计上，采用了模块化结构，以方便内容的 
扩充。其中一块为直流稳态分析，它包括节点电压分析 
法；回路电流分析法和代维南定理三个单元。另一块为 
交流稳态分析，作为弟 4 单元。（系统结构框图见图一） 

通过以上四个单元的练习，将加深对 KCL、KVL 
的理解和提高了应用技能，加深对有源二端网络等效 
为电压源模型的理解，加强复数形式节点电压方程的 
推导和求解技能。 

整个程序采用 n 级 BASIC 语言编写，采用中文提 
示的人机对话方式。 

二、系统功能 

本系统主要设有单元的选择；电路方程的检验;计 
算结果的判断三大 功能。 

(一) 、单芫的选择 

通过键盘选择所需单元。 例如: CRT 上提问“您将 
选择哪个单元? ”时，只需键入所需单元 即可。 

(二） 、方程的检验 

当需对电路方程进行检验时， if 算机提问“是否列 
方程?，，后，键入 “ Y ”, 此时，计算机显示出规定的方程 
格式。按此格式，每输入一个方程，计算机即进行检验， 
并回答“错”或“正确”。回答“错”时，可对所列方程进行 
修改后，再次输入。若仍然不对，则计算机自动给岀正 
确的方程。 

(三) 、计算结果的判断 

在第1、2、4单元中，均提供了五种待求问题类型 
(支路电压，支路电流，元件电压，元件电流，节点电压 
或回路电流)供用户选择 。第 3单元则只进行开路电压, 


等效电阻和最终计算结果的判断■■各类问题的结果均 
有两次输入机会。当均不正确时,计算机自动给出正确 
答案。 

三、 主要技术问题的处理 

(一)、内存容量 

对于 APPLE — I 型微机内存容量小的问题，采用 
了以下两种方法 解决： 

1. 采用了内存复盖技术，随着程序的运行，调用所 
需单元的内容进入内存，以备使用。 

2. 采用不经关联矩阵和支路导纳(阻抗)矩阵 而直. 
接生成增广矩阵的方法■■以节点电压分析法为例，其增 
广矩阵 〔 Y „ ; I ,〕 中的节点导纳矩阵 〔 Y „〕 是一个 nXn 
阶方阵 (II 为独立节点数），它的主对角线上的元素为 
电路中相应节点的自导；主对角线两侧的元素为各节 
点间的互导。根据这个特点,我们利用一个 mX 2 阶 (m 
为支路数)的节点信息矩阵 〔 H 〕， 使其第一列存放起节 
点号；第二列存终节点号，以及一个 m 阶的支路导纳 
列向量 〔 B 〕 存放各支路导纳，进而形成节点导纳矩阵 
〔 YJ 。 假设，对第 I 条支路，如果从 〔 H 〕 中取出的信息 
为： 11(1，1) = 2|1€(1,2) = 3,则将〔8〕的 B ⑴元素叠加 
到数据区 〔 A 〕 的 A (2,2) 和 A (3,3) 单元，将负的 B ( I ) 
叠加到 A (2,3) 和 A (3,2) 单元。若节点信息为 H ( l ， l ) 
= 2; H ( I ，2) = 0(0 表示此终节点为参考节点），则只将 
B ( l ) 叠加到 A (2,2) 单元。这样，对 M 条支路巡检完毕 
后 ， _ 〔 Y „〕 即已生成，并存到数据 〔 八 〕 的第一列到第 N 
列。 

CU 是一个 n 阶列向量，其每一行代表相应节点 
上由电流源提供的电流。由电工学可知，它等于相应节 
点所联电流源的电流与电压源等效电流值的代 数和。 
其公式为〔 I .〕= aJ _ CB 〕〔 VJ 。式中〔1 8 〕表示电流源列 
向量；〔\〕为电压源列向量。将计算结果存入 〔 A 〕 的第 
n + 1 列，便形成了 nX ( n + l ,) 阶的增广矩阵 CY „ ; p 。 
其部分程序如下，程序框图见图二。 

510 FOR 1=1 TO M 
515 J = H(I,]) ： K=H(I,2) 

520 IF J = 0 THEN 535 
525 A(J,J)=A(J,J)+B(I) 

530 A(J,N + 1)=A(J,N + 1)+C(I)-B(1) * D ⑴ 

S35 IF K = 0 THEN 550 
540 A ( K , K )= A ( K , K )+ B ( I ) 

545 A(K ， N+1)=A(K ， N+1)-C(I)+B.(I) * D(I) 

550 IF J*K=0THEN 565 
555 A(J,K)=A(J,K)-B(I) 

560 A(K,J)=A(K,J)-B(I) 

565 NEXT I 
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程序中， I 为支路号， J 为起节点号， K 为终节点 
号， N 为独立节点数， 〔 C 〕 为电流源列向量， 〔 D 〕 为电压 
源列向量。 

(二) • 优维南定理中等效电阻的求取 

由于电路网络的结构各不相同，使用传统的方法 
求等效电阻，在计算机上是无法实现的。因此，我们在 
程序中使用了公式 其中％ 和 I 。分别为所求电 
路对应的有源二端网络的开路电压和短路电流。可分 
别利用第一模块中的节点电压分析法和回路电流分析 
法求岀。在程序设计上，将支路导纳列向量 〔 B 〕 中对应 
于所求支路的导纳值用10 7 代换，形成近似开路，以求 
取 V。; 用 0 代替阻抗列向量中与所求支路对应的数值， 
形成短路，得到 I 。，再由公式求出等效电阻 R 。。 

(三) .交流电路的参数类型 

在交流稳态分析中，常用电路参数有 “ R 、 L 、 C ” 和 
“11、乂1、义”两种类型。为使程序适用于不同的参数类 
型，在程序中设置了 _型选择。根据用户输入的参数类 
型，计算机自动进入不同的分支进行处理，以生成支路 
导纳列向量 〔 B 〕。 

本系统作为一种辅助教学手段，对学好电工学无 
疑有很大帮助。整个系统经在 APPLE- E 型微机上使 
用，效果良好，可靠性髙。除绘图功能及汉字外，也可在 
其它型号的微机上使用。 

附一: 程序应用举例 
电路如图所示 


Ri R3 



已知 AfGOQ ， 

R2=30U,R3 = 20Q, 

E, = 200V,E 2 =100V, 
E 3 =200V 
求:支 路电流 1 R2 
Ri 两端电压 

(一).电路的分析及 求解： 


使用回路电流分析法，回路电流方向如图所示。则回路 
电流方 程为： 

90 I ,-30 I 2 =300 
一 30 Ii + 50 I 2 =100 
解方程得 ： Ii = 5 A ， I 2 =5 A 
••• Ir 2= 1厂 I2 = 0， V R1 = I1R1 = 5 X 60=300 V 
(二).使用本系统进行 检查： 

启动后，输入回路信息及参数。 

M ， N ， M 2 = 3,2,6 (支路，回路及元件个数） 
I , J , K , L , V =1, 1,0,0,60 \ 

I , J , K , L , V =2, 1,2,0,30 
I , J , K , L , V =3,2,0,0,20 
I , J , K , L , V =1, J ,0,2,200 • 

I ， J ， K , L , V =2, 1,2,2,100 
I , J ， K , L , V =3,2,0,2,200 
是否列方程 ( Y / N )? 

Y \ 

请按下列格式输入 方程： 

A * I 1 + B * I 2+ C * I 3 =V 
回路方程 1 
90*11-30*12=300 
正确 

回路方程2 

-30* 11 + 50* 12=100 
正确 

是否求解 ( Y / N )? 

Y 

所求问题类型？ 

3 (3 表示支路电流） 

所求支路号？ 

2 

请输入计算结果 
0 

正确 

所求问题类型？ 

4 (4 表示元件电压） 

所求元件号？ 

1 

请输入计算结果 

300 

正确 

所求问题类型？ 

此时键入“0”将返回单元选择。再键入“0”则系统 
结束运行。 
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附 二:程 序框图 
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LDA 

轉樂 AO 

STA 

$73 

LDA 

#$95 

STA 


LDA 

#*4C 

STA 

*9EBA 

LDA 

轉 SB3 

STA 

S9EBB 

LDA 

轉 $95 

STA 

$9EBC 

RTS 


STA 

(%2Q ), Y 

LDY 

$24 

LDA 

(S28), Y 

PHA 

AND 

U%3F 

ORA 

#$40 

STA 

($28),Y 

PLA 


JSR 

SFD1B 

CMP 

轉 $95 

BEQ 

$95F6 

CMP 

n%s\ 

BEQ 

S95DE 

CMP 

tt$9A 

BEQ 

S95E4 

CMP 

轉 $97 

BED 

$95EA 

CMP 

«$85 

BEQ 

$95F0 

RTS 


J3F: 

$FCiA 

JMP 

S95BA 

JSP 


JMP 

$?5PA 

JSP 

$FCiO 

7 MR 


JSR 


JMF 

P5F:A 

LDA 

. 


PTS 


°5A0- 

?5A2- 

95A4- 

95A6- 

95A8- 

95AA- 

95AD- 

95AF- 

95B2- 

95B4- 

95B7- 

95B8- 

95BA- 

95BC- 

95BE- 

95BF- 

95C1- 

95C3- 

95C5- 

95C6- 

95C9- 

?5CB- 

°5 CD - 

95CF- 

95D1- 

?5D3- 

9^. D 5- 

95D7- 

VD ? - 

°e ： DD- 
95DE- 
95 E 1 - 
95 E ： J - 
°5E7- 
?5EA- 
oc ： ED- 
=»5ro - 

W 一 

9« fr & . 


四个键的控制，就可迅速简便地将光标移动到指定位 
置上 ，从 f 大大提高了编辑速度，进一步方便了用户 。‘ 

为了便于用户开发其它程序，本文没有把所编的 
光标移动控制程序放在第三页，而是放在内存可用空 
间的最高端$ 95 A 0- $ 95 F 8, 同时修改了最高可用地 
址 HIMEM 指针，使其不致被其它的用户程序冲掉。 

程序在开机引导后通过 BRUN 命令予以执行，则 
计算机以后就具有了四个新的编辑功能键。通过对这 
些编辑功能键的操作，就可方便地完成程序的编辑修 
改工作。 

汇编程序清单如下。 ' 


APPLE 机编辑功能键的改进 

曲阜师范大学物理系狄振强 

众所周知， IBM 机上有四个光标移动鍵，可以方便 
地控制光标进行上、下、左、右移动》但在 APPLE 机上, 
要对光标进行移动控制时，则需通过编辑功能鍵来完 
成。通常需要三步操作 :①按 ESC 键进入编辑状态，② 
按 I 、 J 、 M 、 K 等键进行光标移动，③再按 ESC 鍵（或其 
它可退出编辑状态的键）退出编辑状态。由于对光标移 
动的控制 f 要多步操作才能完成，所以在程序的编辑 
修改过程中，其速度馒，效率低。这种对光标移动的控 
制远不如 IBM 机上的光标控制灵活。 

为此，笔者编制了一段程序，对 APPLE 机上的编 
辑功能控制键进行了改进，抛弃了原来的纯光标移动 
方式，重新定义了纯光标移动控制鍵，使得光标的上、 
下、左、右移动控制与 IBM 机上的移动控制'一样方便。 
从而大大加快了编辑速度，提高了编辑效率。 

* 下面对新定义的四个编辑功能鍵作具体介绍。 

(1) 纯光标上移鍵 

本文定义 CTRL - A 鍵为纯光标上移键。在任何时 
候，用户只要按下 CTRL - A 鍵，光标即上移一格。当光 
标在屏幕的顶端时，则不再向上移动。 

(2) 纯光标下移键 

定义 CTRL - Z 鍵为纯光标下移鍵。在任何时候，用 
户只要按下 CTRL - Z 鍵，光标即下移一格。当光标在屏 
幕的最底端时，按下以鍵将使得屏幕 上卷。 

在鍵盘上, A 、 Z 两键是上下紧靠在一起的两键，并 
且离 CTRL 鍵很近，定义这两个鍵为纯光标以上下移 
动键，在使用中可以方便操作，同时也容易记忆。 

(3) 纯光标左移鍵 

定义 CTRL - W 为纯光标左移键。在任何时候，用 
户 R 要按下 CTRL - W 鍵，光标即在左移一格。若光标 
在屏幕的最左端，按下此鍵后光标将移至上一行的最 
右端。 

(4) 纯光标右移键 

_定义 CTRL - E 为纯光标右移键 ( CTRL - E 在监控状 
态下虽已有定义，但考虑到其很少使用）。在任何时候， 
用户只要按下 . CTRL - E 鍵，光标即右移一格。若光标在 
屏幕的最右端，按下此键后光标将移至下一行的最左 
端，若此时恰为最底行，则屏幕还要上卷。 

在鍵盘上， W 、 E 鍵是左右紧靠在一起的两鍵，且 
离 CTRL 鍵很近，，定义这两个键为纯光标的左右移动 
鍵，可以方便操作，同时也容易记忆。 

新定义的编辑功能鍵，大大减化了原编辑系统的 
光标移动操作讨程，将光标移动的三步操作（进入编 
辑、光标移动、退出编辑)合在一起一次完成。通过对这 


F c,- F ir F ir r 


sgGKSS K s 95 g 0D 工巧 


3 
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APPLET I 微机用于脉冲宽度的测量 

中科院高等离子体物理研究所江亚民 


用计算机测量脉冲宽度的方法有多种。本文介绍 
的两种用 APPLE — H 微机测量脉宽的方法不但简便 
易行，而且十分可靠，特别适合于聲次脉冲宽度的测 
量。其中第二种方法已在惮丸初速度测量中应用。 

方 法一: 这种测量方法不需要增加任何硬件设备， 
仅使用一个游戏插口和软件就可以了。使用时，只需要 
将幅度为 5 V 左右的待测正脉冲送到游戏插口（譬如地 
址为 $ C 063 的游戏口）通过运行主程序就可立即测 
出。 

• 主程序为程序1，子程序为程序 2 。 

程序1 

10 POKE 787,48 
20 CALL 768 

30 N=PEEK (817) * 256 +PEEK (816) 

40 T=N * 0. 0156+ PEEKC 817) * 0. 0049 
50 PRINT Turns ’， 


程序 2 


0300- 

A 9 

00 


LDA 

# $00 

0302- 

8 D 

30 

03 

STA 

$ 0330 

0305- 

8 D 

31 

03 

STA 

$0331 

0308- 

A 9 

7 F 


LDA 

# $7 F 

030 A - 

CD 

63 

CO 

CMP 

$ C 063 

030 D - 

90 

03 


BCC 

$0312 

030 F - 

4 C 

0 A 

03 

JMP 

$ 030 A 

0312- 

EE 

30 

03 

INC 

$ 0330 

0315- 

DO 

03 


BNE 

$031 A 

0317- 

EE 

31 

03 

INC 

$ 0331 

031 A - 

CD 

63 

CO 

CMP 

$ C 063 

031 D - 

90 

F 3 


BCC 

$0312 

03 IF - 

60 



RTS 



由程序 2 可看出，这种测量方法实际上就是通过不 
断地查询地址为 $ C 063 单元的第七位是否为1。当该 
游戏口的输入电平为1时， $ C (> 63 单元的值就是大于 
或等于128,否则其值就小于12 8 。因此当程序 2 运行后， 
微机就一直处于查询等待状态。一旦被测正脉冲到来， 
微机就自动地进入查询计数。每次循环，$330单元的 
数值就加1。在该单元的数达到 25 5以前，每次循环需要 
16个指令周期,即需要 15. 6 叩。 因此当被测脉冲宽度在 
4 ms 以内时，测量误差最大为 15. 6叫 。西 当脉宽大于 
14 


4 ms 后，由于$ 330单元计数满，需要 [6] $ 331单元进 
位。而每次进位需要增加5个指令周_，即相当于 
9叫。因此在最终的测量结果中应加上相应的增量。程 
序1给出了完整的计算程序。 

按该程序，可测得的最大脉宽为 1. 的3秒。用该方 
法对不 同宽度的脉冲 （ 2 00 哗， 2 ms ， 2 0 ms ， 200ms 和 
800ms) 进行测量试验，测量的结果与从示波器上读出 
的值完全相同。 

方法二 :上述 方法虽然简便，但误差较大，特别在 
脉宽小于 100 ns 的测量中，相对误差是非常大的。因此 
对于窄脉冲宽度的测量，可采用高频计数的方法 。这种 
测量方 法的电路如图所示。 



当被测的正脉冲到来时，与非门 YF 1 被打开，微 
机内的时钟信号作为计数脉冲使由两个四位二进计数 
器 74 LS 393组成的八位计数器计数。当正脉冲结束后， 
微机发出读信号,使计数器内的数据通过八位线缓冲 
器 74 LS 244 送到计算机内指定的存贮单元。只要将该 
存贮单元的值乘以时钟信号的周期，便是被测脉冲的 
宽度值。显而易见，这种测量方法的误差是一个时钟周 
期。当时钟信号为 1. 023 MH , 时,并测得的最大脉宽为 
249哗，误差为0,98网。倘若采用 7 MH Z 信号，则误差只有 
0. 14 叫 。对于更长的脉宽,可增加计数器的级数和相应 
的数据缓存单元，地址译码电路也要作适当的修改。 

程序3为测量主程序，程序4为子程序。程序内的地 
址是假定接口电路板插在主机内4号糟口上。 

程序3 

10 CALL 768 
20 T =0.98* PEEK (816) 

30 PRINT T ; “ microsec ” 

程序 4 

0300- A 9 00 LDA # $ 00 




0302- 

8 D 

30 

03 

STA 

$ 0330 

0314 - 60 RTS 

0305- 

A 9 

7 F 


LDA 

# $7 F 

0315 - 00 BRK 

0307- 

CD 

63 

CO 

CMP 

$ C 063 

如果要测量两脉冲间时间间隔，只要将两正脉冲 

030 A - 

90 

03 


BCC 

$030 F 

分别触发由两个或非门组成的双稳触发器，使其输出 

030 C - 

4 C 

07 

03 

JMP 

$ 0307 

一个宽度等于要测量的时间间隔的脉冲，然后再用上 

030 F - 

CD 

63 

CO 

CMP 

$ C 063 

述方法就可以了。 

0312- 

90 

FB 


BCC 

$ 030 F 



•程序剖析与编程技 巧* 

.^SilEAM ' 

福建顺昌县高阳南亨学校谢吉华李锋 


固化于 ROM 的 CEC—I BASIC 解释程序，某些功 
能的设计不能令人满意。 例如： GOTO / GOSUB 语句不 
能跟变量，砝带的存储速度太馒等。因为 ROM 的解释 
程序是无法改写的，所以许多用户对这样的问題一筹 
莫展。其实，只要我们将 ROM 的解释程序移到 RAM 
上，就可以方便”修改解释程序，其实现方法 如下： 

首先键入 CAL ^-151 进入监控状态 

* D 000 < D 000 • FFFFM 〆； ROM 的程序移到 
RAM 

* C 083 〆 ：置 RAM 可读写 

然后就可以改变解释程序中我们认为不合理的部分。 

1. 棺短减带存储时间 

* D 11 E :20 〆 ） 修改砝带引导段长度 

* CTRL — C ， ，返回 BASIC 状态 

原来要用40多秒才能存入磁带的一个短小程序，修改 
磁道引导段长度后，只需10秒左右就可存入，而且砝带 
程序也能正碲读入内存。 

2. 让 GOTO / GOSUB 语句可跟变量 


* D 93 E ：20 67 DD 20 52 E 7 〆 

返回 BASIC 后， GOTO/GOSUB 就可跟变量了。修改的 
原理 是：把 GOTO/GOSUB 语句解释程序的转读数子 
程序改为转读变量子程序。 

3. 改提示符 

* _0:BF〆 

返回 BASIC 后，提示符变为 “？” 号，只要在 BASIC 状态 
下执行 POKE 54336， ASC ( A $ ) + 128, 就可以把提示 
符改为字符串 A $ 的第一个字符 • 

4. 改光标 

* FD 11： A 9 CB EA EA〆 

修改后，光标立即变为 “ K ” 了，若要把光标改成其它字 
符，只要改变 FD 12 存储单元的值就可达到目的。 

用这种方法修改解释程序，見效快，效果好。但是， 
这种方法不達用于中文状态，按中文键或 CTRL — RE ¬ 
SET 键都会取消这些修改解释程序后带来的新功能。 
但只要执行 POKE 49328,0 后，这些新功能又会被恢 
复。 


在国际奥林匹克信息学竞赛中 


我国4名参赛学生全部获奖 


参加第2届国际奥林匹克信息学竞赛的4名中国选 
手全国选手全部 得奖： 北京大学附属中学高三学生江 
晓晔得一等奖，清华大学附中高一学生杨澄和福建师 
大附中高三学生李艰得二等奖。中国队获团体总分2 
名。 


盟共和国首都明斯克举行的。来自26个国家的104名选 
手参加了竞赛。保加利亚队得总分第一名，苏联队名列 
第三。这次竞赛设8名一等奖、10名二等奖和12名三等 
奖。保、苏各有两名选手得一等，匈牙利、阿根廷和联帮 
德国也分别有一名选手获一等奖。 


这次比赛是于7月17日和18日在苏联白俄罗斯加 
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• 实用程 序 • 


“与一或”式真值表自动生成程序 


黑龙江呼兰师专数学系程显毅 


真值表的生成，对于逻辑式化简，解逻辑方程，证 
明逻辑式是不是永真式是不可少的一步。虽然真值表 
生成算法很简单，但相当繁琐，易出错。本文给出计算 
机自动生成真值表的程序。对于任意形式的逻辑式直 
接生成真值表的计算机程序有待探讨，我们退一步，先 
人为的将逻辑式化为“与一或”式(条件可以放宽到允 
许加¥号,但“非”的作¥只能是单变元。），如逻辑式 
A + ( lC + AC )、 A (( B + 西) + E ) 是允许的，而逻 辑式： 
A + ( BC + AC ) % A (( B + CD ) + E ) 是不允许的。 

— 、程序说明 

1•设计思 想:将 逻辑运算转化为算术运算。 s 卩:逻 
辑式 - A * “与一或”式算术表达式 M 真值表。 


为此，考虑到算法的可行性，我们将逻辑式与算术 
表达式符号对应列表 如下： 


逻辑式 

.算术表达3 


符号 

含义 

符号 

含义 

+ 

或 

+ 

加 

没有 

与 

* 

乘 

A 


1- SGN ( ABC (… ）） 

函数 

( 

左括号 

( 

左括号 

) 

右括号 

) 

右括号 

1 

真 

1 

数 

0 

假 

0 

数 


2. 变量 说明： 

P $ ——用户输入的“与一或”式， 

T $ ——字符暂存器， 

A $—— 以串型存放的算术表达式， 

L —— P $ W 长度， 

L ( N )—— 变元指派数组， 

N 变元个数， 

T ——“与”运算标记。 T =1 表示下一次可能是“与”运 
算, T =0 表示下一次不可能是“与”运算。' 

I ——字符指针， 

CH —— 变元值暂存器， 

LJ 表达式的值。 

3. 程序 结构： 

本程序由三个模块 组成： 

转换模块——使用当型循环 (10 〜 300 行） 

生成算术表达式模块——使用 T 型文件 （350 行 
〜 380行） 


计算指派的值及 LJ 并打印——使用二层循环 
( FOR 型)和子程序 （375 行~999行） 

子程序——计算变元的值 (1000 〜1040行） 

4.算 法： 

1. 初始化 

1.1 输入“与一或”式和变元数 
1.2 定义数组和求 P $ 长度，令1=1 

2. P $ 转换为 A $ 

2. 1读卩$第1个字符放到 T $ 

2.2 判断 I 是否超界？是则转3 
2. 3判断 T $ 是变元吗？是则 
a 断是“与”运算吗？是则“ * ”和 T $ 的值连接到 
八$转0 

b 只将 T $ 的值连接到八$中 
c 令 T =1， I = I +1 
2.4判断丁$是“ + ”吗？是则 
a 判断合法性，若合法则 T $ 连接到 A $中，令 T 
= 0 : 1=1+1 转 2. 9 
b 出错处理 

2. 5判断 T $ 是“（”吗？是，则 
a 判断合法性，若合法则 

① 判断是“与”运算吗？是则将“ * ”和 T $ 连接 
. 到八$转③ 

② 将 T $ 连接到 A $ 

③ 令 T = 0 ，I = I +1 转 2.9 
b 出错处理 

2.6判断丁$是“）”吗'?是则 
a 判断合法性，若合法则 T $加到 A $中，令 T = 
1，1=1+1，转 2.9 
b 出错处理 

2.7判断丁$是1”吗？是则 
a 判断合法性，若合法则 

① 判断是“与”运算吗？是则将 *“（1 —SGN 
( ABS (“ T $ ，” )））” 加到 A $ ，转③ 

② “（1- SGN ( ABS (“ T $ ,)))” 加到 A _$ ， 

③ 令 T = l , 1 = 1+1 转 2. 9 
b 出错处理 

2.8 出错处理 
2. 9转 2. 1 

3. 生成算术表达式 LJ 

4 •放算 各变元的值并输出 

5.结束 

二、操作说明 

逻辑式中使用的变量必须是 A ， B ， …… ， I ， J ， 必需 
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是依次使用，即使用了 G , 那么 A , B , C ， D , E , F 必须也 
使用。输入的变元数 N 指不同的变元数。 

第一步，在 DOS 系鍵下，输入本程序，并键入 
SAVE LJ (回车）。 

第 二步: RUN (回车），要求用户从键盘输入“与一 
或”式和变元数，执行结果，在盘上建立一个 T 型文件 
A 1。 

第三步 :键入 EXEC A 1 (回车），这时完成逻辑式 
向算术表达式转换过程。 

第四步 :键入 RUN 345( 回车），要求用户重新从键 
盘输入第二步所输入的变元数 N , 执行结果生成真值 
表。 

第 五步: 如果要生成另外一个真值表，则 RUNU 
回车，重复上述各步。 

本程序在中华机通过 

三 、程 序清单 

10 INPUT“INPUT LOJIC+ ， STAND FOR OR,NOT 
: ” ; P $ 

20 INPUT “ N = ”; N 
30 DIM L ( N ) 

40 1=1 : A $ ，，： L=LEN (P $ ) 

45 P $= P $+“ A ” 

50 T $ = MID $ ( P $， I ，1) 

55 IF I>L THEN 350 

60 IF T $ > = “ A，，AND T $ < = “ Z，，THEN 200 
70 IFT $=“ +，，THEN A $= A $+ T $ : T =0 : 1 = 
1+1 : GOTO 300 
80 IF T $ =“ （” THEN 220 

90 IFT $=“），， THENA $= A $ + T $ : GOTO 240 
100 IF T $ =“ 八 ，， THEN 270 
110 GOTO 10 

200 IFT =1 THEN A $ = A $+“ * ” + T $ : 1 = 1+1 
: T =1 : GOTO 300 

210 1=1+] : A $ = A $ + T $ : T =1 : GOTO 300 
220 IFT =1 THEN 1 = 1+1 : T =0 : A $ = A $ +“ * 
(”： GOTO 300 

230 1 = 1+1 :’ A $ = A $ +“(，，： T =0 : GOTO 300 
240 1=1+1 : T $= MID $( P $ ,1,1) 

250 IF T $ = “）” THEN A $ =A $ +T $ : GOTO 300 
260 T = l : GOTO 300 
270 J =1 

280 I = I +1: T $ = MID $ ( P $， I ，1) 

285 IF T $ = “八 ” THEN J = J +1 : GOTO 300 
290 IF J /2 = INT ( J /2 )THEN 1=1-1 : GOTO 300 

292 IF T $ > = “ A”AND T $<=^“ Z，，THEN 294 

293 1=1-1 : GOTO 300 

294 IF T =1 THEN A $ = A $ +“ * ，’ + “（1 -(SGN 
( ABS (“+ T $ +，，)））），，： T =1 : 1 = 1+1 : GO ¬ 
TO 300 

295 A $ = A $ +“（1- SGN ( ABS (“+ T $ +”））），，： 


T =1 : 1 = 1+1 


300 

GOTO 50 


350 

D $ = CHR $ (4) 


351 

PRINT D $ ; “OPEN Al ” 


352 

PRINT D $ ;“WRITE Al ” 


353 

PRINT “570，，+ A $ 


354 

PRINT “DEL 350,368” 


355 

PRINT “345 INPUT W + CHR $ (34) +“N = ” + 
CHR $ (34)+ CHR $ (59) + “ N ” 

365 

PRINT “DELETE Al ” 


367 

PRINT D $ ; “ CLOSE ” 


368 

END 


375 

FOR M =1 TO N 


380 

PRINT CHR $ (64 + M ); “ ！，，； 


383 

NEXT M 


385 

PRINT “ ”； MID $ ( P $，1， L ) 


387 

FOR M =1 TO 6 * N +12 : PRINT “ 一”; 
M : PRINT 

: NEXT 

388 

FOR T =0 TO 2" N-l 


389 

Z=T 


390 

GOSUB 1000 : A = CH : PRINT A ; “ 


395 

IF N <=1 THEN 570 


400 

GOSUB 1000 : B=CH : PRINT B ; “ 


405 

IF N < =2 THEN 570 


410 

GOSUB 1000 : C=CH : PRINT C ; . “ 


415 

IF N < =3 THEN 570 


420 

GOSUB 1000 ： D=CH : PRINT D ; “ 


425 

IF N < =4 THEN 570 


430 

GOSUB 1000 : E=CH : PRINT E ; “ 

» 

435 

IF N < =5 THEN 570 


440 

GOSUB 1000 : F=CH : PRINT F ; “ 

! ”； 

445 

IF N < = 6 THEN 570 


450 

GOSUB 1000 : G=CH : PRINT G ; “ 

I w . 

455 

IF N < = 7 THEN 570 


460 

GOSUB 1000 : H = CH : PRINT H ; “ 

! ”； 

465 

IF N < =8 THEN 570 


470 

GOSUB 1000 : I = CH ： PRINT I 广 ！ 

yy # 

475 

IF N < =9 THEN 570 


480 

GOSUB 1000 ： IF N >10 THEN PRINT “/ SK 4- 
F 20 IGJ : ，， ： HOME : GOTO 10 

485 

J=CH : PRINT J ; “ ！ 


570 

LJ = A +( B * C +(1- SGN ( ABS ( C )))) 


575 

IF LJ <>0 THEN LJ =1 


580 

PRINT “ ”; LJ 


670 

NEXT T 


999 

END 


1000 

CH=Z * 0. 5 -INT (Z * 0. 5) 


1010 

IF CH < >0 THEN CH =] 


1020 

Z = INT ( Z * 0. 5) 


1040 

RETURN 



17 



C2=0-S : D2 = C2 * 60 : E2 = INT(D2) : F2 = 


\ •实用程序 • l 

j f 

电脑三角函数查询程序> 

r ! 

?杭州钢窗厂技术科陈仁> 

( 5 

务 • H,-* II I M •• ^ 

中华学习机三角函数运算用的是弧度制，而中学 
课本及日常应用极大多数采用的是角度制。运行本程 
序可以方便地进行函数一角度转换或角度一函数转 
换： 

10 PR # 3 ： PRINT : PRINT : PRINT : PRINT ： 
PRINT ： PRINT 

20 PRINT “ 函数—角度：按 1” 

30 PRINT 

40 PRINT “ 角度—函数：按0” 

50 GET A $ ： IF A $ = “0 ”THEN 410 AND A $ = 
“1 ，，THEN 60 

60 PRINT : PRINT : PRINT 
70 PRINT “键入函数，显示角度值•” 

80 PRINT : PRINT : PRINT : PRINT : PRINT 
90 PRINT “ 函数二 ”： INPUT A 
i 00 PRINT : PRINT : PRINT : PRINT 
110 IF A =1 THEN 360 
120 B = 180/3. 1415926535 

130 M = ATN ( A ) * B : L=INT ( M ) s C = M-L ： D = 
C * 60 : E = INT ( D ) : F = D-E : G = F * 60 : U 
= INT(G * 100+. 5)/100 
140 RPINT “正切角=”士; “。 

150 IF U =60 THEN U =0 : E = E +1 
160 IF E =60 THEN E =0 : L = L +1 
170 PRINT 

180 IF A >1 THEN 300 

190 N = ATN ( A / SQR (1 -A * A )) * B : R = INT ( N ) : 
C 1= N-R : D 1= C 1 * 60 : E 1 = INT ( D 1) : Fl = 
Dl-El * G 1= F 1 * 60 : U 1 = INT ( G 1 * 100+. 

5)/100 . 

* 

200 IF Ul = 60 THEN U 1 = 0 : El = El-fl 
210 IF El = 60 THEN E 1 = 0 * R = R +1 
220 PRINT “正弦角 = ”; R ; “。 

230 PRINT 


D 2- E 2 : G 2 = F 2 * 60 : U 2 = INT ( G 2 * 100+• 
5)/100 

250 IF U 2 = 60 THEN U 2 = 0 : E 2 = E 2+1 
260 IF E 2=60 THEN E 2 = 0 : S = S +1 
270 PRINT “余弦角 =S ; ; E 2; 

280 PRINT 
290 GOTO 20 

300 PRINT “正弦函数值>1，无理” 

310 PRINT 

320 PRINT “余弦函数值>1，无理” 

330 PRINT 

340 GOTO 20 : END 

350 PRINT 

360 PRINT “正切角= 45。” 

370 PRINT 

380 PRINT “正弦角= 90。” 

390 PRINT 

400 PRINT “余弦角 = 0 : PRINT : GOTO 20 
410 PRINT : PRINT : PRINT 
420 PR # 3 ： PRINT : PRINT : PRINT : PRINT : 
PRINT 

430 PRINT “键入角度，显示函数” 

440 PRINT : PRINT : PRINT 

450 INPUT “度，分，秒= ”; A ， B，C 

460 IF A =90 AND B =0 AND C =0 THEN 550 

470 PRINT : PRINT : PRINT : PRINT 

480 D = A + B /60+ C /3600 

490 X = 3. 1415926536/180* D 

500 T = SIN ( X ) * U = COS ( X ) : V = TAN ( X ) 

510 PRINT TAB (4);“ 正弦； TAB (15);“ 余弦 ，，;TAB 
(26);“ 正切 ”；： PRINT 

520 T 1 = INT ( T * 10000000 + . 5)/10000000 : Ul = 
INT(U * 10000000- h . 5)/10000000 : V 1 = INT 
(V * 10000000+. 5)/10000000 
530 PRINT TAB (1), T 1； TAB (13)； U 1, TAB (24)； V 1 
: PRINT : PRINT : PRINT 
540 GOTO 20 

550 PRINT TAB (4);“ 正弦，％ TAB (16);“ 余弦，％ TAB • 
(28);“ 正切 ，，： PRINT 

560 PRINT TAB (5); “1，％ TAB ( 17) ;“0”； TAB (29); 

u _ ，， 

565 PRINT : PRINT 


240 0= ATN ( SQR (1 -A * A )/ A ) * B : S = INT (0) : 570 GOTO 20 
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• 实用程 序 • 


一个用于动态菜单设计的 FoxBASE 程序 


石家庄铁道学院樊金生 


目前，使用微机数据库管理系统 DBASE U 或 FoxBASE +编制的应用软件占绝大多数，而在这些软件设计时 
使用的菜单•■-般都是老式菜单,必须用数字或字母徤来选取选择项，显示下一层或上一层菜单时，一般先清掉整 
个屏幕的内容，而且色彩比较单调。当前流行的动态式菜单(也称下拉式菜单）可克服老式菜单的以上缺点，得到 
了广泛应用。在 FoxBASE 中虽可语句设计这种菜单，但菜单显示的位置已在程序中固定，修改不 
便，且进入下层菜单、迻回上层菜单时都要有清部分屏幕，画边框等命令，编程时不易掌握，更不利于菜单项的增 
加、删除和修改。 

本文提供的动态菜单设计程序可克服以上缺点，用于动态菜单设计中+分方便。與体说来它有如下 特点： 

1、各层菜单选择项和有关参数存放在一些数据库文件（称为菜单参数文件）中，因此菜单项的增删和参数的 
修改十分方便。 


2、 菜单层數最多可达20层，各层菜单的显示位置可任意安排，只要求下层菜单的开始列号大于上层的开始 

列号。 . 

3、 每个菜单项可用不同的颜色显示，当前光标所在的菜单项以闪烁形式显示。 

4 、 用箭头键或空格键可移动光标到某个菜单项，用回车键选定光标处的菜 单项； 也可键入菜单项的第一个字 
符来选定某菜单项。 

5、 选定某菜单项后可执行给定的命令或子程序，或显示下级菜单。显示下一级菜单时可保留上 一级菜 单的部 
分内容；从某級菜单返回时先清除此菜单，复原上一级菜单。 

6、 将各层菜单的参數文件设计好以后，此程序代替应用软件的主程序和一些子程序，即此程序能很方便地用 

于应用软件设计，除了应用软件中不能使用此程序的一些变量外，没有其他限制。需要时可对此程序进行扩充和 
完善，以遠应不同的应用要求。 ' 


下面介绍此程序使用 方法： 

首先将各层菜单的各个选择项及有关参数建立在一些•数据庠文件中（称为菜单参数文件，程序中要求主菜单 
的参数文件名为 MENUF. DBF) ， 这些参数文件有共同的结构.，共有 line 、 param 、 C - num 、 m _ r 、 mx 五个字段，分别表 
示菜单项内容、参數、颜色、相对于本级菜单左上角坐标的行号和列号。每个参数文件中的第一个记录的 pa ram 字 


段存放此菜单的有•关参数，其余的记录存放每个菜单项的有关數据，其中 param 字段可存放此菜单项对应的子菜 
单的有关参数或要打开的子菜单参数文件名，当没有子菜单时存放选取此项时要执行的命令、或要调用的子程 
序。例如有一 MENUF. DBF 内容为（为便于表示，这里的 line 字段长度较小，实际使用时可定义到 80 个字 符）： 
li ne param c.num m.r me 


1. 输入数据 

2. 修改数据 

3. 查询數据 

4. 打印数据 
0. 退出 


/rl = l/cl = l/r2 = 8/c2= 30/rec = 

2/num = 5 

use menufl 

use menuf2 

use menuf3 

do prdata 

return 


2 1 

3 2 

4 3 

+ 1 4 

5 5 


5 

5 

5 

5 

5 


第一行的参数中， rl 、 C l 分别为此菜单左上角在屏幕上的行列坐标， 
r 2、 c 2 分别为此菜单右下角在屏幕上的行列坐标， 
rec . num 分别为此菜单在库中的开始记录号和菜单项个数。 

在这个例子中，当选取第一选择项时，打开菜单参数文件 “menufl”, 程序中自动按此文件的参数显示 菜单; 
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当选取第四个选择项时，调用子程序 “ prdata ” ； 

当选取第五个选择项时，执行 “ return ” 语句。 

在下级菜单中要达回到上一级菜单时，可将打开上一级菜单文件的命令放入此菜单项对应记录的 param 字 
段中，例如 menufl . dbf 内容 如下： 


line param cnum 

/rl = 3 /cl = 7/ r 2 * 10/ c 2 = 40 /rec 
= 2/ num ==4 

1. 成批输入数据 use menu 21 4 

2 . 追加一个记录 do pro 12 2 

3. 插入数据 do pro 13 5 

0 •达回 use menuf 6 


m r 


2 

3 

4 


me 


5 

5 

5 

5 


这里，第 4 个菜单项的 param 字段存放的是上一层菜单的参数文件名。 

另外，当菜单项目数比较固定时，可将多个菜单参数文件合并，例如可将 MENUF 1 • DBF 合并到 MENUF . DBF 
+， 变为： 


line 


param 

/rl = l/cl = l / r 2 = 8/ c 2 = 30 /rec = 2/ 

num =5 

c.num 

m.r 

m_c 

1 . 

输入数据 

/ rl =4 /cl = 7/ r 2 = 
7/ unm =»4 

ll / c 2*= 40 /rec = 

2 

1 

5 

2. 

修改數据 

use menuf 2 


3 

2 

5 

3. 

查询数据 

use menuf 3 


4 

3 

5 

4. 

打印数据 

do prdata 


+ 1 

4 

5 

0 . 

遠出 

return 


5 

5 

5 

1 . 

成批输入数据 

use m ^ nu 21 


4 

1 

5 

2. 

追加一个记录 

do pro 12 


2 

2 

5 

3. 

插入数据 

do pro 13 


5 

3 

5 

0 . 

退回 

/rl = l/cl = l / r 2 = 
2 /num = 5 

= 8/ c 2 = 30 /rec = 

6 

4 

5 


这里，主菜单的第一个菜单项的 param 字段存放的是下一层菜单的有关参数，第一个子菜单的第4项存放 
的是上一层菜单的有关参数。 ， 

在程序执行中，当在主菜单中选取第一个菜单项时，程序根据此项的 PARAM 字段的内容确定了下一菜单的 
屏幕显示位置，并从第7个记录开始取出4个菜单项显示在屏 幕上； 当在此子菜单中选择第4项时，根据提供的 
参數又可返回到上一级菜单。 ' 

附： 源程序 PDMENU . PRG 
clear 

set talk off 

use menuf 打开存放菜单参数的文件，定义存放当前活动菜 

dime scrowl (20) ,sccol 1 (20) 单所用数组。改变这些数组的下标值时，可改变菜 

dime scrow 2(20) , sccol 2(20) 单的最大允许层数。 

sc=l 

store lto rl ,cl , r 2, c 2, rec , num,dol 
cs =”” 

set proc to pdmenu 
go 1 
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do menupa 
scrowl ( sc)=rl 
sccoll ( sc)=cl 
scrow 2( sc )= r 2 
sccol 2( sc ) = c 2 


num — 菜单项的个数 
c . num — 当前菜单项的颜色 
设定此菜单项的颜色 
line — 菜单项的内容 
m _ r — 菜单项的相对行坐标 
m . c 一菜单项的相对列坐标 


显示完所有菜单项后，光标停在第一个菜单项上 
j 一第一个菜单项上所在行 

| S . 

dqrec — 当前记录号 


当前菜单项以颜色闪烁形式显示 


等待键盘输入 


用向上或向左的箭头键使光标移到上 
一个菜单项，当光标在第一个菜单项 
位置时，按向上未向左的箭头键时使 
光标移到最后一个菜单项 

消除当前菜单项的闪烁显示 


do while , t . 
set color * to 12/0 

@scrowl ( sc) ， sccol 1 ( sc)clear to scrow 2 ( sc ) ， sccol 2 
( sc ) 

col 12 = ( scco 12 ( sc ) — scco ll ( sc ) —4)/2 
@scrow 1 ( sc ), sccol 1 ( sc ) say “ r ” + repl (“ 一 ” , 
coll 2) + “ i ” 

serr = scrow 2 ( sc )— scrow l ( sc ) —1 
n = 1 

do while n<=scrr _ 

@scrow 1 ( sc ) + n,sccol 1 ( sc ) say u | M - f - repl ( u ”， 

coll 2) + “|” 
n = n +1 


do while i <. = num 
c = trim ( cnum ) 
set color to & c . /0 

@ scrowl ( sc)+m r ， sccoll ( sc)+m c say trim ( line ) 
i = i+l 
skip 
enddo 



go rec 

j = scrowl ( sc )- f -1 
do while , t . 
dqrec = recn 0 
c = c.num 
mr = m.r 
mc = m.c 
lline=line 

set color to * &. c . /0 

@ scrovvl ( sc)+m r ， sccoll ( sc ) + m c say trim ( line ) 
key = inkey () 
do while key = 0 
key = inkey () 
enddo 
do case 

0 ase key = 5. or . key =19 



if i<l 
i=unm 
endif 

set color to & c . /0 


调用过程 menupa 取出主菜单的各个 参数: 
rl —— 莱单左上角在屏幕上的行坐标， 
cl ——茉单左上角在屏幕上的列坐标， 
r 2 —— 菜单右下角在屏幕上的行坐标， 
c 2 —— 菜单右下角在屏幕上的列坐标。 


清部分屏幕 


画菜单的边枢 


enddo 

@ scrow 2( sc )， sccoll ( sc ) say “ u ”+ repl (“一”， coll 2) 
- \- u 
go rec 


&& rec - 此菜单在库中的开始记录号 


A.-&&&& 

&OS&U&U& 


^.^^.^^& &&.&. 
^&,80&&u^ &,& &U 




^.&^& 

& &&. 
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@scrowl ( sc ) -f m . r , sccoll ( sc ) + m-C say trim 
( line ) 

go rec+i — 1 

case key =24. or . key = 32. or . key = 4 
i = i+l 
if i>num 



endif 

endif 

set color to & c . /0 

@scrowl ( sc ) sccoll ( sc ) +mx say trim ( line ) 

go rec + i —1 
case key = 13 

set color to & c . /0 

@ scrowl ( sc ) + m . r,sccol 1 ( sc ) -}- m_c say trim ( lien ) 
go rec + i — 1 
exit 
other 
go rec 



do while k*<=num 
r=subs (rtrim (line ) ,1,1) 
if lower ( r ) = lower ( chr ( key))exit 
exit 

endif 

skip 

•k = k+l 
enddo 

if k<C = num 
set color to & c . /0 

@ scrowl ( sc )+ mr ， sccoll ( sc)+mc say trim ( lline ) 
c = c.num 

set color to * &C. /0 

@scrowl ( sc )+ m — r，sccoll ( sc )+ m.c say trim ( line ) 
set color to & c . /0 

@ scrowl ( sc)+m r ， sccoll ( sc )+ m_c say trim ( line ) 
exit 
endif 
go dprec 
enddo 
enddo 
do menupa 
if dol <>2 

&-CS 

if dol = 1 
do menupa 
endif 
endif 

if dol <>0 
sc = sc+l 
scrowl ( sc ) =rl 
sccoll ( sc ) =cl 


用向下、向右箭头键或空格键使光标移到下一个 
菜单项；当光标在最后一个菜单项位置时，按向 
下、向右箭头键或空掊键时使光标移到第一个菜 
单项 


&&用回车键选定光标处的菜单项 


&&以下循环的作用是依次检查各个菜单项的首字 
母是否与键入的字符相同，当某菜单项的首字 
母与键人的字符相同时，选中此菜单项并退出 
循环 


k>nutn 时说明键入的字符有错，不予理睬， k 
< = num 时表示选中了某菜单项，将原闪烁的 
菜单项改为正常显示，而将当前选中的菜单项 
以闪烁形式显示一下后去除闪烁并退出 

&&• 循环 


k>num 时仍保持原闪烁的菜单不变 


选定某菜单项后执行过程 menupa 取出此菜单 
的参数. 

cs 的内容为 use 命令时，取出此库文件中的茉单 
参数（第一个记录） 
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scrow2(sc)=r2 

sccol2(sc)=c2 

if sccoll(sc— 1) 〉 sccoll(sc) 

&& 返回上一级菜单前清除子菜单内容 

@scrowl (sc — 1), sccoll (sc — 1) clear to scrow2(sc — 
1) ,scco12(sc-t-1) 
sc=sc—2 
endif 
endif 
enddo 

set color to 7/0 
return 

proc menupa 
dol = 0 

CS=RTRIM ( LTRIM ( param)) 

DO WHILE LEN(CS)<>0 

* cs 中存放参数时，置 dol 为 2 ； cs 中为 use 命令时，置 
dol 为 1; 为其它命令时， dol 为 0 
IF LEFT (CS， 】）<>“/” 

IF LOWER(LEFT(CS ， 3)) = “use” 


•软件介绍 • 

CEC — I . APPLE — I 最新加密软件 

《虎符一 90》 V 1. 2功能简介 

本软件综合采用了五种以上的现代加密方法，可 
对用户软件进行全面加密处理，经本系统生成的每张 
加密盘，都具有不同的加密格式，经实际检验证明，目 
前尚无任何解密拷贝软件能直接拷贝经本系统加密的 
软件。 

为对付解密者的起动跟踪，加密系统末取了强有 
力的反跟踪措施，包括利用零页、堆栈，怪相令等，再加 
上复杂的算法和转向，特殊的起动方式，使得解密跟踪 
十分困难。 

本系统保留7用户软件 DOS 的全部特点和命令， 
具有广泛的适应性，系统加密过程方便实用，加密手段 
先进可靠，对加密盘不会产生不良影响，突破了传统的 
加密越深，起动越困难的旧观念，是用户为自己的软件 
加上一把大锁的最好选择。 

源程序语言：6502汇编 

运行 环境: CEC — I , APPLE I 系列兼容机 

(6502 CPU ) —个或两个驱动器 

出售形 式：磁 盘一张，使用手册一本 


dol = l 
endif 
return 

ELSE 

* cs 中存放下一级菜单的各参数时，置 dol 为 2, 且用 
宏代换方法给各个参数賦值 
dol =2 

nnn=at( a / w ,subs(cs,2» 
if nnn<C = 0 
csn=subs(cs,2) 
cs= “” 
else 

csn=subs (cs, 2, nnn —1) 
cs=subs (cs ， nnn +1) 
endif 

&csn • 

endif 
enddo 
return 



价格 : 54 元 

绡售单位:《中华学习 机》 杂志社。 


.书讯 • 

中华学习机丛书出版 

由南京大学朱国江等编写、北京气象出版社出 
版的中华学习机系列丛书一套六本，现已陆续出版 
发行。《中华学习机编程技巧》 (1988. 2,1•亞元）、《中 
华学习机数据处理》（19 89 . I 2 , 4 •应元）、《中华学习 
机汉字软件》 (1990. 2, 7. 元)有现书供应。《中华学 
习机图形管理》（〗991. 2,7.並元）、《中华学习机机器 
语言》、《中华学习机图形技巧》将在1991年出齐。全 
国各地新华书店经售。 

已-出版的三本书共25章，300个程序和工具软 
件，约64万字。包括程序设计、机器使用、编程方法、 
程序连接、打印输出、调试技术、软件加密、编程技 
巧、实用管理、信息处理、功能扩展、文件维护、图形 
处理、趣味程序、学业管理、汉字原理、情报检索、现 
代管理等方面。取材新颖、深入浅出、实用性强、应用 
面广。 
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•实用程序 • 

DISK ZAP 程序的功能与改进 


浙江省委党校 朱核棋 

197^9年编制的 DISK ZAP 程序，是一个能够对磁 
盘扇区进行读、写、编辑、显示、打印等操作的工具软 
件，时至今日，它与其它类似功能的软件相比，由于简 
单易学，操作方便，功能较全，仍不失为一个较好的软 
件。 

一、功能简介 

运行 DISK ZAP 程序，便在屏幕上显示如下所示 
的菜单： 

DISK ZAP ~~ 

R —— READ A SECTOR FROM THE DISK 
W —— WRITF A SECTOR TO THE DISK 

E - ENTER SECTOR EDIT MODE 

Q —— QUIT PROGRAM 

L - LIST SECTOR TO SCREEN 

P —— LIST SECTOR TO PRINTER 
C - CATALOG 

+ — 一 INCREMENT AND READ NEXT SECTOR 
- DECREMENT AND READ PREV SECTOR 

WHICH COMMAND ?__ - 

菜单里列出了 disk zap 的所有命令，含 义是： 

R 命 令:读 出一个扇区。 

W 命令 :写人 一个扇区。 

E 命令: 进入扇区编辑模式。 

Q 命令: 退出。 

L 命令 :在屏 幕上列出扇区内容。 

P 命令 :打印 出扇区内容。 

C 命令 :列磁 盘目录及磁盘剩余扇区数。 

+命令 :读出 下一个扇区。 

—命令 :读出 前一个扇区。 

程序可以对0-34道中任一扇区进行 R 、 W 、 E、L 

及 P 命令操作，键入 R 后，程序便在屏幕底部提示，要 
求操作者按“道号，扇区号”的格式键入道号和扇区号， 
程序读出指定扇区内容后,在右上方显示操作的道号、 
扇区号，并等待操作者键入新的命令。键入 L , 程序把 
扇区内容用16进制数显示在屏幕左方，右方显示相应 
的字符，控制字符及大少写字符均可显示，给查看内容 
带来了方便。键入 R 后，再键入 1( 打印卡所在槽口 
号），便打印内容，格式与 L 命令下一样。键入 E 命令， 
进入由 R 命令读出的扇区的编辑模式。程序显示扇区 
内容在内存中存放的起始地址，并进入监控方式，操作 
者可以使用所有监控命令进行编辑。编辑完毕，按 
CTRL - RESET 退出 E 模式，键入 W 命令，屏幕出现 


反显提示，要求操作者通过按 Y / N 键确认是否对当前 
扇区进行写入。如按 N , 则要求操作者键入要写入的道 
号，扇区号。 

在读、写中如发生错误，主机会发出“嘟”的一声， 
同时在下方显示错误代码和 “ ERR ”。 错误代码的值与 
DOS3.3 系统中 IOB 表内的错误代码一样，读者可査阅 
本刊 1990 年第 5 期 《DOS 系统 RWTS 子程序剖析》 一 

文。 

二、程序分析 

DISK ZAP 以 A 类文件存盘，看似 BASIC 程序'，实 
际却不尽然 。 DISK ZAP 程序分为两个部分,分别用 
BASIC 语言和机器语言写成。前者可以用 LIST 命令列 
出，后者存于$1400—一 $15 FF 的内存中，原来，制作 
修改了 BASIC 程序末指针（末指针存于零页 $ AF 、 
B 0) ，使机器语言程序能够随 BASIC 程序一起存盘。 

机器语言部分可分为供 BASIC 程序调用的三个 
子程序•读、写一个扇区 ，入口 地址为$1400;2.列、 
印扇区内容，入口地址为 $14 F 1 ; 3. 査算磁盘剩余扇 
区数 ，入口 地址为$ 1533。 

BASIC 程序采用模块化结构，程序中有众多的 
REM 语句，加之变量名使用相同含义的英文单词，使 
程序非常清晰易俺。程序完成置初值、显示菜单.人机 
对话及依赖机器语言程序完成各个命令的操作。 

=• 程序的改进 

从对扇区操作来看，程序的功能已较为完善，但由 
于其读、写操作依赖于 DOS 3. 3中的子程序，故不能对 
一些加密盘(经过半轨加密，制作35道以上轨道加密的 
磁盘)进行操作，这是 DISK ZAP 的不足之处，本文给 
出程序的改进方法，使 DISK ZAP 能够对：0—42道 
(或更高一些的道号)内任意一个标准轨道或半轨道中 
的指定扇区进行读、写，从而使 DISK ZAP 的性能有了 
很大的提高，给磁盘加密、解密提供了一个强有力的工 
具。 

改进工作主要从增编机器语言程序入手。增编的 
机器语言存于$ 13A0 ——$ 13FD 中，为使 BASIC 程 
序的末尾地址低于$ 13A0, 不与机器语言程序冲突， 
删去几句 REM 语句，原 BASIC 程序及机器语言程序 
仅作一些小改动。改进的具体方法和步骤如下。 

‘1.键入 LOAD DISK ZAP 丨，从磁盘中调入 DISK 
ZAP 文件至主机内存。键入 CALL — 151丨，进入监 
控。 

2- 按下列内容 输入： 


13A0- 

86 

2B 

85 

2A 

AD 

78 

04 

F0 

13A8- 

07 

18 

6D 

BE 

13 

8D 

78 

04 

13B0- 

AD 

BF 

13 

8D 

BE 

13 

18 

65 

13B8- 

2A 

85 

2A 

4C 

A4 

B9 

00 

00 

13C0- 

48 

8A 

48 

98 

48 

A9 

4C 

8D 

13C8- 

A0 

B9 

A9 

A0 

8D 

A1 

B9 

A9 

13D0- 

13 

8D 

A2 

B9 

20 

05 

14 

AD 

13D8 - 

78 

04 

C9 

65 

DO 

0B 

A9 

00 
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13E0- 

85 

00 

85 

01 

85 

02 

20 

05 

13E8- 

14 

A9 

86 

8D 

A0 

B9 

A9 

2B 

13F0- 

8D 

A1 

B9 

A9 

85 

8D 

A2 

B9 

13F8- 

68 

AA 

68 

A8 

68 

60 



143E- 

1A 

20 







1440- 

DA 

FD 

A9 

A0 

20 

ED 

FD 

20 

1448- 

2D 

FF 

A0 

3F 

A9 

3F 

20 

A8 

1450- 

FC 

88 

10 

F8 

A9 

65 

8D 

78 


1458 - 04 

输入完毕后键入 BSAVE OBJ , A $13 A 0, L $260 
\ ，把全部的机器语言程序取名为 OBJ 在盘上暂存一 
下。 

3. 按 CTRL — RESET 退出监控 ，键入 10 | 、 20 |、 
100 丨，取消这几句 REM 语句。输 入下列 语句： 

120 ST = 5056 ： FRSP = 5427 

520 VTAB PEEK (37)； HTAB 18： PRINT TK “， ，％ : 
HTAB 30 : PRINT SEC ： PRINT “ IS THAT 
WHAT YOU WANT ?，，, : NORMAL：GET Q $ 

730 IF TRACK >41 THEN TRACK = 0 
740 TK = TRACK + PEEK (5055) * 0. 5 ：GOTO 420 
830 IF TRACK < 0 THEN TRACK =41 
840 TK = TRACK + PEEK (5055) * 0. 5 ：GOTO 420 
1520 VTAB 2： HTAB H : GALL —868: PRINT “TRACK 
= ”；： INVERSE ： PRINTTK , : NORMAL ： PRINT 
“SECTOR = INVERSE ： PRINT SEC ；： NOR ¬ 
MAL 

2030 PRINT “ TRACK，，;TK 广， SECTOR ”; SEC : PRINT : 

NORMAL 
2080 CALL 5361 

7010 PRINT : INPUT“WHICH TRACK AND SECTOR ”； 
TK,SEC 

7020 IF TK > = 0 AND TK < = 41. 99 THEN 7040 
7033 TRACK = INT ( TK ) 

7035 IF TRACK = TK THEN POKE 5055, 0： GOTO 
7040 

7037 TK = TRACK +0. 5 ：POKE 5055,1 

4. 键入 POKE 175,0 ：POKE 176,22 | ，修改程序 
末地址指针。 

5. 键入 BLOAD OBJ { ，装入机器语言程序。 

6. 键入 SAVE DISK ZAP I ，把改进后的 DISK 
ZAP 程序存盘。改进工作结束。盘上的 OBJ 文件已无 
用处，可以删掉。 

改进后的程序操作方式相同。输入道号时，整数表 
示标准轨，带小数点的表示半轨。如 17. 5表示对半轨17 
道进行操作。程序在 DOS 3. 3系统下运行，运行时会自 
动修改 DDS 3. 3系统的一些子程序,当退出程序时 ，又 
会恢复这些子程序。 

作者用改进后的程序解破了一个大型软件。其文 
件目录道设在 35. 5道，文件存于 40. 5和 41. 5道。用 
DISK MUNCHER 系列和 LOCKSMITH 系列拷贝软件， 
无法拷出这个加密软件，连 NIBBLE AWAY II 也无能 
为力。 


•小经验* 

CEC 小汇编的移植 

我们在苹果机上编写汇编程序时，常常要调用整 
数 BASIC 来使用小汇编，操作很麻烦，甚至有的机上 
无法使用整数 BASIC 。 中华学习机 ( CEC -1) 中固化了 
小汇编，使用方便。 

本文介绍的方法，可使 CEC 的小汇编移植到其他 
机上。方法 如下： 

CALL-IM〆 

C 007:0 〆 

1 A 00< CA 00. CB 50 M / 

1A37:1A〆 

1 A 5 B ；1 A / 

1 ABF : IB〆 
1 AE 7:1 B〆 
1 B 33:1 A〆 
C 008:0 〆 

修改完毕后，用 BSAVE MINI . ASSM ， A $ 1 A 00 ，L 
$15 D〆 的命令存盘。 

上述方法中，是将小汇编移到 $1 A 00 处。可根据 
需要移到不同的地址。这样，只需调用 MINI . ASSM 文 
件，便可在苹果机上使用小汇编了。 

湖北省宜昌市第一中学 韩 後 


CEC - I 脈钳_鰣_几点修改 

CEC- I 中华学习机汉字打印驱动程序仅适用 
于九针图形打印机,其型号必须与 EPSON MX — 80 
m 等 m 型打印机兼容，而对如: MX — 80 I 、 FX —80 1 
RX — so n 等 n 型打印机均无能为力，为了使拥有上 
述打印机机型用户也能打印汉字，特对 CEC — I 机 
的汉字打印驱动程序作以下几点 修改： 

10 POKE 916,27 
20 POKE 918,65 
30 POKE 919,8 
40 POKE 920,8 

只要在中文 BASIC 状态下输入并执行上述程 
序，就能在 n 型打印机上打印汉字，（注意本程序只 
支持 5 〜 15 号字型，即执行 POKE 1659, n 命令时， n 
的值必须在 5 〜 15 之间） 

_ 浙江省舟山市电力公司 傅剑 
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•实用程序 • 


利用整型数组存放汉字信息 

四川南充市一中 陈庆祥 


―、中文字符串带来的利与弊 

对于已配置汉卡或软汉字系统的 APPLE I 和 
CEC - I 等微型机来说，在中文状态下输入的任何汉字 
都可以跟其他 ASCB 字型一样，成为字符串常数的组 
成部分，这种中文字符串（或中西文混合字符串）的使 
用，给许多含有汉字信息的数据处理工作带来很大的 
方便，同时也增强了整个系统的实际应用价值。然而， 
由于汉字占用内存比 ASCI 字符要多得多（比如，燕山 
汉卡的每个汉字占用4个节，而 STC 软汉字与 CEC-I 
的每个汉字占用3个字节，而一个 ASCII 字符仅占用1 
个字节），大量的中文字符亊在程序中使用，必然占用 
很多内存。例如，在设计初中毕业会考的考生记录分类 
程序时，需要把各考生的姓名、性别、考生类别与报考 
类别的四项中文數据存入计算机，现在用四个字符串 
数组来存放它们。假定四个数据项所含有的汉字个数 
是3、1、2、2,共 8 个字，那么这四个字符串數组元素共占 
用44或33个字节（对燕山汉卡汉字和 CEC — I 或 STC 
软汉字来说），假设有 lOOO 名考生，书共占内存约 
43 KB 32 KB , 这早已超过了这些微机在中文状态下的用 
户区的最大容量 26. 5 KB , 更谈不上存放程序或其他数 
据信息。即使考生人数减少一些后，内存可勉强容纳， 
但如果要长期存放这些字符，也只能利用磁盘数据文 
件，因为磁带上唯一可存放的数组只能是数值型数组， 
这给仅以磁带机为辅助存储器的用户迨成极大的不 
便。 

二、汉字信息的转换与压缩存储 

既然程序中大量使_用中文字符串会耗用巨大的内 
存和外存，而且无法直接在磁带上存取，是否将迫使我 
们尽責少用或不用中文字符串，或不得不改用英文？难 
道没有其他道路可走？其实，上面的第二个问题已经为 
我们提示了解决问题的方向，那就是将汉字信息设法 
转换成数值，特别是整型數值来存储，由于整型数组元 
素占用内存在所有变量中最少（为两字节），并且便于 
用磁盘和磁带两种方式存储。 

当汉字进入内存以后，是以内码的形式存放的，不 
同的汉字系统内码的个数与内容互不相同。比如燕山 
汉卡每个汉字有4个内码，它们的值在$61〜 $6 A 之 
内，其实质是国标码的每位数字与$61 之和； 而 STC 
轻汉字第一内码为$ 1 B , 其它两码直接为国标区码与 
位码。每个汉字对应于唯一的一组内码。所以，我们完 
全可以将一个汉字的内码压缩处理后用一个四位整数 
来'表示。例如燕山汉字各内码值减去$61即得到一个 
一 位数字，四个一位数可拼成一个四 位数； 对于 STC 


软汉字，舍去第一内码，可将二、三内码拼成一个四位 
数， CEC — I 的汉字可仿此处理。因此，一个汉字可用一 
个整型数表示，这样，至少可节省内存1/2或1/3。实际 
上，由于每个字符串数组元素要用1个字节标明长度，2 
个字节标明串指针（不在此占用内存），所以，用整型数 
组存放中文字串所节省的内存还要大得多 ■■比 如，一名 
考生的姓名以三个汉字计算，用一个字符串数组元素 
存放要用15个字节，而有三个整型數组元素仅用6个字 
节。此外，每个汉字仅用了四位數字，而一个整型数范 
围可达五位，其最高位还可利用起来，存放一些简单信 
息。例 如：用 1或2分别表示男或女等等，这样，一名考生 
_的姓名、性别、类别与报考类就完全可以仅用三个整型 
数组元素存放（后三种以1一5的代码分别嵌入三个整 
型数的最高位），这样，44字节的内容被压缩在6字节 
内，1000名考生的中文数据仅用不到 6 KB 的内存就可 
以了，节省空间总数十分惊人。 

三、程序实例 

为说明上述原理，下面就以某地初中毕业会考的 
考生记录处理为例，设计了两个程序，程序1是将 N 名 
考生的姓名、性别、类别、报考类与考生成绩由键盘输 
入后，将中文字串转换成整型数连考分一起存入顺序 
文件 HK 中。这里为了节省打印篇幅，采用 READ / DA - 
TA 语句提供数据，实际应用时，可删去第15 J 33 语句及 
190以后各语句，以节省内存空间。程序2是将整数从磁 
盘数据文件中读回内存、将考生记录按考分排序后，再 
以中文形式打印输出。 


K^*AA liiliaaa 

5 ikll 柊中文罕符串转换成整型数组并存人数据文件 . （ PP0I 说 AM 1) 

10 READ N: DIM «(N,2),MZ(N),P$(2 )： REM 苹 臬机及 蒸山汉卡上运行 
15 GOTO 30 

20 PRINT" m 请输人各考生记录 ur 
30 FOR I = 1 TO N 

33 READ N$,P$(0),P$(D,P$(2).MZ(I )： GOTO 80 
35 PRINT " M0. I" 号考生 :” 

40 INPUT ” 姓名 ?•: N$:L = LEN (N$) 

45 IF L < 8 OR L > 12 THEN 40 
50 INPUT " 性别卜男 ,2 - 女） ”; P$(0) 

55 IF P$(0) < "1" OP PKO) > T THEN 50 
60 INPUT - 考生类别?(卜应届 .2- 注届） ”; P$(l) 

65 IF P$(l) < "1 M OR P$(0) / T THEN 60 

70 INPUT" 报考类别 ? ( 卜普 S,2 - 职 S,3 - 晋 SI 职 H,4 - 普畐蒹中专 ,5- 音 S 

蒹中师 )”;P$(2) 

75 IF P$(2) < "1" OR P$(0) > *5" THEN 70 
77 INPUT - 总分？ •: MZU) 

80 P$(2) = STR$ (3 - VAL (P$(2>)> 

90 FOR J M TO LEN (N$) STEP 4:SZ = J / 4 

100 FOR K = J TO J + 3 

110 W = ASC ( MI0$ (N$,K,D) - 97 

120 P$(SZ) = P$(SZ) t StR$ (W )： NEXT K 

130 AZd.SZ,) = VAL (P 湖 ): NEXT J, I 

140 D$ = CHP$ (4 )： PRINT Dr OPEN HK”: PRINT DrWRITE Hk M : PRINT N 
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150 FOR I = 1 TO N ： FOR J = 0 TO 2 
160 PRINT AZd.J)；".-; 

170 NEXT J: PRINT MZ(I )： NEXT I 

180 PRINT D$-CL0SE": PRINT - 汉字转换宪成，并已存人顺序文件 UK .”： E 
190 DATA 6 

200 DATA 李宏, U,3,476, 王建华 ,2,2,5,453, 刘军 ,1,1,4,514 
210 DATA 赵娜 ,1, U 4R 用小敏 . 2,2,1,438, 陈氷明 ,1,1,5,549 
1 

1RUN 

汉芋转换完成 . 并已存人顺序文件 HK. 

1L0AD APYZ2 
LIST 

10 REM 将整型数组从顺序文件 HK 中读人 内存并 转换成 汉罕 . (?mm 2) 

20 0$ = CHP$ (4): PRINT DfOPEN HK "： PRINT D$"READ W n 
30 INPUT N: 0IM AZ(N,?),MZ(N),K2(N) 

40 FOR I = 1 TO N:KZ(I) = I 
50 INPUT AX(!,0),AZ(I,l),A2n.?),f1Z(I) 

60 S = S + MZ(I )： NEXT I 
70 PRINT 0$"CL0SE" 

75 REM 按成绩分类并将整型数还原成汉芋 . 

80 FOR ! = 1 TO N - 1：L = I 

90 FOR J = I + 1 TO N 

100 IF m(KZa)) < _(J)) THEN L = J 

110 NEXT J 

120 KI = KZ(L):KZ(L) * KZ(I) ： K2(I) = U 
125 NEXT 1 

130 XB$(1) = •男 ” 女 ” 

140 SL$(1) * ”12 届 ": 认 $ ⑵： ” 往届 ” 

150 FOR I -- I TO 5 ： READ BL$(H ： NEXT I 

160 DATA 普高 ，职 S. 职晋，专晋，师音 

170 PRINT - m 考生记录分类统计表 m”: PRINT 

180 PRINK 考号姓名性别.生笑报类总分名次 ”： PRINT 

190 FOR I : 1 TO N ： N$ = •": P = KZ(1 )： PRINT PIGHTi ("000" + STRt ,(P.< 

.4)"; 

200 FOP J : 0 TO 2：CZ = AI(P,J) ： B2(J) = SGN (CZ) * INT » AE：'i d ： 7.) ! 

1E4) 

210 R$ = ?\m ( STR$ ( ABS (a) ),4) 

220 FOR K * I TO 4 

230 N$ = N$ + CHR$ < VAL ( MID! »PU. 1') ) + '?7): NEXT I：' 

240 NEXT . 娜 2, ： 3 - Bf 、 

250 PRINT Nf "Xe$iB/i0n- '丄咖 1，；; 

260 PRINT " *BLKBZ(2)r *l17.tFr "I - 

270 NEXT I ： PRINT : PRINT W;N;" ”； 

280 PRINT "g. 平 W 分 : ” 1NT u t 100 / N 十 h / 100: E 
]RUN 、 

m 亏生记录分类统计表 m 
考号姓 _g 性别生类报矣总分备欠 
0006 陈水明男应 S 师晋 54m 1 .. 

0003 刘军男©届专音 514 2 
0001 李宏男应届职音 476 3. 

0002 王逹 华女庄 届师音 453 4 r 〜 

0005 用小敏女往居 晋高你 5 

0004 赵彬彬男应届职 S 417 6 

总人数 :6 总平均分 :474.*!1 .• 


由于采用了信息化码嵌入的方法，所以信息转换 
及还原后数据项个数不变，不影响按任何键进行分类 
(此如程序2可改为按报考类分类）。由于信息转换是在 
输入输出时进行，因此不影响数据分类或其他处理的 
速度。汉字转换与嵌入代码虽然麻烦一点，但与其节约 
内存与便于存放的巨大效益相比，仍是非常划算的。 

程序如改用磁带存放数据，可删去所有含 DOS 命 
令的语句行，再用 STOKE , RECALL 命令用磁带存取 
数据（关于两语句使用方法请参阅有关资料）。 

程序在配有燕山汉卡的 APPLE 上运行通过，如换 
用其他汉字卡或软汉字系统，应根据其汉字内码形式 
作相应改动。比如对使用广泛的 STC 软汉字来说，可 
作如下 改动： 

1、将程序1中的90〜120语句用下列同起止行号的 


程序段 代替： 

90 FOR J=v 1 TO LEN (N $ )— 1 STEP 3； S %= J / 
3 

95 H = ASC ( MID $ (N $ , J ,1)) =27 
100 FOR K = J + H TO J + H+l 
110 A = ASC ( MID $ ( N $， K ，1)) * H 
120 P $ ( S %) = P $ ( S %) + RIGHT $ (“0” + STR 
$ ( A ),2) 

2、将程序 2 中的 220 〜 230 语句用下列同起止行号 
的程序段 代替： 

220 R % = VAL ( R $)： Q %= R % / 100 ：W = R % - 
Q% * ICO 

225 IF Q % + W = 0 THEN N $ = N $ + “” : GO ¬ 
TO 240 

230 N $ 為 N $ + CHR $ (27) + CHR $ ( Q %) + 
CHR $ ( W ) 

对于 CEC — L 中华学习机，再在上述改动的基础 
上作如下 变动： 

1、 将下面的95、110语句分别代替第1条改动的程 
序段中的相同行号语句： 

95 H = ASC ( MID $ ( N $ , J ,1)> = 127 

110 A = ( ASC ( MID $ ( N $ , K ,1)) - 29) * H 

2、 用下面的 230 语句代替第 2 条中230 语句： 

230 N $ = N $ + CHR $ (127) + GHR $ ( Q%-f 
29) + CHR $ ( W +29) 

事实上，本文介绍的原理可遠用于任何微机系统 
上含大量中文信息的软件，具体应用时，只需将程序中 
汉字转换与还原部分根据该汉字系统的汉字内码特点 
作相应改动即可。 


•故障检测与维修 • 

中华学习机电源维修一例 

攀钢 冶金工业学校黄文贵 

故障 现象 : CEC — I 型中华学习机开机后，键盘右 
上方的指示灯不亮，屏幕上无任何显示。 

检査 处理: 首先关闭主机电源，取下电源插头。用 
螺丝刀小心打开主机外壳，用万用表直流电压档测电 
源的四路直流电压 （ + 5 V 、+ 12 V 、一5 V 、一 12 V ), 发现 
只有一路 （ + 5 V 没有电压输出，其余 H 路电压正常。然 
后，仔细用肉眼观察电源部分的变压器绕组、整流二极 
管、以及滤波电容、并无烧毁现象。再仔细检查，发现整 
流部分有两个二极管同极性并联。用电烙铁分别焊下 
两个二极管，再用万用表欧姆档测量，发现其中一只二 
极管已发生内部短路，无法再使用。当时找不到替代的 
二极管，暂时把好的一只二极管焊好使用，等买到相似 
的二极管再补焊上。修好后，已使用一年，一切都正常。 
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•辅助教学与研究 • 


有趣物理规律的微机演示 

安徽省定远中学 肖学璞 吴义琴 

在物理学中有很多类同的有趣规律。高中物理有三种重 
要的场，即勻强重力场，匀强电场和勻强磁场。物体（如小球） 
在重;0场中的运动，带电粒子（如电子、正电子，质子或《粒 
子等）在电场和磁场中的运动规律是教学中的重点，这里就 
有许多类同有趣的规律，然而这些现象在传统教学中难以展 
现眼前。利用微机演示，生动形象，容知识性、科学性和趣味 
性于一体。 

我们用 BASIC 语言编写了 一个教学程序，可在 CEC — I、 
APPLE- I等微机上运行。 

一、 程序使用说明 

1、 设地表处的重乃加速度，亦即重力场强度大小 g=9. 8 
(m/ S 2) ,E(v/m) ， B(T) 分别为勾强电场强度和勾强磁场的磁 
感应强度； M(kg) 为小球或带电粒子的 质量； VJm/s),v(m/ 
s) 分别表示小球和粒子速度; Q(c) 表示粒子带电量。 

2 、 运行程序，据屏显提示，给 I 賦 1 、 2 、或 3, 将相应得到如 
图 （ 1 )， 困 （ 2) 或困 （ 3) 所示的运行结果。 

当1=1时，便显示出直角坐标系。再给V。賦值，随后便 
看到有小球从坐标原点水平向右抛出。在抛出运动的过程 
中，给 N 键人非1的值，小球继续运动，当给 N 犍人1的值时， 
小球便停在空间某处，待出现光标时，连按两次空挡鍵，便会 
看到显示出该时刻小球的連度方向，特别是速度的反向延长 
线交于水平位移的中点！改变V。再试，当然还是如此！見困 

(l)o 

当1 = 2时，便显示出一个平行板电容器与其中輛线。再 
给 E 賦值后，立即在平行板电容器中布置一个向下的匀强电 
场。随后一一给 Q、M 和V賦值，可看到带电粒子沿中轴线进 
入电场而发生偏转。粒子飞出后沿飞出时的連度方向作匀速 
直线运动。待出现光标时，按动空挡鍵，便将_到粒子飞出电 
场时連度的反向延长线交于电容器的中心点 〖就 好象粒子从 
电容器中心飞出一样。再改换粒子或連度试，当然还是如此！ 
每运行一次，程序相应给出粒子的水平位移（亦即平行板电 
容器的长 ）X(m)， 橫向位移 Y(m)， 橫向分速度 Vy(m/s)* 偏 
角 A(rad) 等值。如果给 Q 賦以0值，表示 y 光子或中子，在电 
场中不发生偏转，接着运行结禾，見困（2)。 • 

当1 = 3 时，据屏显提示给 R。 与 B 賦值（它们分别表示一 
个截面为园形的匀强磁场的半径和磁感应强度），随之得到 
相应大小和强弱园形磁场与以场中心为原点的直角坐标。接 
着再给 Q、M、V 賦值，便有粒子沿磁场半径方向由左側进入 
磁场并发生偏转，直到飞出磁场后做匀速直线运动。待出现 
光标时，桉动空档键可看到粒子飞出磁场时速度的反向延长 
线交于铋场的中心！就好象粒子从磁场的中心飞出一烊。再 
改换粒子或速度试，当然还是如此！每运行一次程序相应给 
出粒子在磁场中的偏转半径 R(m), 周期 T(S), 位移 L(m) 和 
转过的角度 A(rad) 等值。如果给 Q 賦以0值，表示 y 光子或 
中子，随后运行结束，見困 （ 3 )。 

3、 所有参数输入时，如果超过屏显提示的范围，程序自 
动要求重新输入。 

二 、 程序和图1、2、3附后 

合 LIST1，280 

1 REM 箐箐箐箐箐箐箐 * 箦 （ I 

2 POKE 232,0 ： POKE 233,96： U * 24 

576 

3 FOR I = 0 TO 13: READ C ： POKE 

U ♦ I,C: NEXT I 

4 DATA 1,0,4,0,18,63,32,100,43,2 

1,54,30,7,0 

5 INPUT -I=i,2,3：? - ；I 

6 IF I < > 1 AND I < >2 AND I 

< >3 THEN 5 


HGR 

HCOLOR* 3 

ON I GOTO 3000,4000,20 

REM **»* — » = »* ( I I > SKSS 篇 SSSS 

B 

INPUT -R0«0.1—0.5M ： -JRO ： IF 
RO < 0.1 OR RO > 0.3 THEN 20 


30 INPUT M B=0.001--0.01T ： ? B ； B ： IF 
B < 0.001 OR B > 0.01 THEN 3 
0 

40 K = 130 : RO » K 箐 RO 
50 HPLOT 100 - R0,80 TO 250,80 
60 HPLOT 100,2 TO 100,190 
70 FOR A = 0 TO 2 * 3.14159 STEP 
2 箐 3.14139 / 36 

80 XO = RO 箐 SIN <A) : YO * RO * COS 
(A) 

90 HPLOT 100 + X0,80 + YO 
100 IF A > 3.14159 / 2 THEN 190 
110 FOR I * 20 TO 160 STEP 20 
120 FOR J = 20 TO 160 STEP 20 
130 IF I > 100 ♦, XO OR J > 80 ♦ 

YO THEN 180 

140 IF I < 100 - XO OR J < 80 - 
YO THEN 180 
150 FOR W = - 2 TO 2 

160 HPLOT I ♦ W,J ♦ W: HPLOT I - 
W,J + W 
170 NEXT W 
180 NEXT J,I 
190 NEXT A 
200 GOSUB 5000 
210 IF Q * 0 THEN END 
220 HPLOT 20,80 TO 100 - R0,80 
230 HPLOT 100 - RO - 5,77 TO 100 
- R0,80 TO 100 - RO - 5,83 
240 CALL 64477 ： CALL 64477 
250 KO * 1 ： IF Q > 0 THEN KO * - 

1 

260 R=M#V/Q/ B：R = ABS (R 
) 

270 R2 * K # R 

280 L * 2 * RO * R2 / SQR (RO * 

RO + R2 脊 R2> 

吞 LIST290 ,3060 

2^0 FOP A = 0 TO 2 箐 3.14159 STEP 
24 3.14159 / 72 

300 XI = R2 * SIN (A) : Y1 = P2 箐 
COS (A) 

310 IF SIN (0.5 * A> > 0.5 L / 

• R2 THEM 340 

320 HPLOT TO 100 - PO ♦ XI,80 ♦ 

KO ¥ F:2 - KO * Y1 
330 NEXT A 

340 FOR Y2 = 1 TO 188 - 80 - R2 ♦ 

Y1 STEP 2 

350 X2 = V2 / TAN (A) 


360 

IF 100 - 

RO 

+ XI 

+ X2 < 

10 OR 


100 - 

RO 

| + XI + 

X2 > 270 

THEN 


400 






370 

IF 80 

- 

R2 ♦ 

Y1 

-Y2 < 2 

THEN 


400 






380 

HPLOT 

100 - 

RO + 

XI ♦ X2 

,80 + 


KO * 

R2 

-KO 

'* Y1 ♦ KO * 

Y2 

390 

NEXT 

Y2 





400 

GET A 车： 

IF 100 - 

RO ♦ XI 

>2 


70 THEN 

420 




410 

HPLOT 

100 - 

RO ♦ 

XI,80 ♦ 

KO * 


R2 - 

KO 

* Y1 

TO 

100,80 


414 

Z = IE 

- 

"7 




420 

PRINT 

: 

GET 

A4 



430 

PRINT 

鱔 - 

■———— 

— 

— - " 


440 

PRINT 

,R=" ; 

INT 

(R # »000) / 


1000 ； 

•• (M) M : 

GET 

B 生 



7 8 9 1 2 
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450 PRINT "L="; INT (L / K * 100 
0) / 1000 ； H (M >"： GET C$ 

460 T = 2 * 3.14 * M / Q / B：T = 

INT (T * 1E9) / 1E9：T = ABS 

(T) : PRINT M T= M ； T ； "(S> M ： GET 

D 车 

470 PRINT "A="; INT (A * 1000) / 
1000 ； ^(RAD)" : GET E* 

430 PRINT •• - M 

490 GOTO 200 
500 END 

3000 REM =========( III )======= 

3010 HPLOT 30,30 TO 260,30 TO 25 
4,26 ： HPLOT 260,33 TO 254,33 
TO 254,35 TO 260,35 TO 260, 

37 TO 254,37 

3020 HPLOT 40,20 TO 40,160 TO 36 
,154 ： HPLOT 44,154 TO 44,160 

3030 HPLOT 43,154 TO 43,160 ： HPLOT 
44,157 TO 48,157 

3040 HPLOT 33,22 TO 37,22 TO 37, 

28 TO 33,28 TO 33,22 
3050 INPUT -VO(M/S)=?" ； VO ： IF VO 
= < 0 THEN END 

3060 FOR T = T TO T + 1 STEP 0.0 
2 

会 LIST3070,4180 

3070 S * VO # T：H = 0.5 * 9.8 # T 

箐 T 


3080 

IF S > 220 

OR H > 120 THEN 


3140 



3090 

HPLOT S ♦ 

35, H + 30 


3100 

NEXT T 



3110 

INPUT M N*? 

'" ； N ： IF N =： 1 

THEN 


3140 



3120 

GOTO 3060 



3130 

T = 0 ： GOTO 

i 3050 


3140 

SCALE- 1 ： 

DRAW 1 AT S + 

35, 


H ♦ 30 



3150 

P * H / (0. 

3 箐 S) 


3160 

SI = 30 ： H1 

=SI 箐 P: GET. 

A* 

3170 

IF 35 + S 

+ SI > 278 OR 

30 ♦ 


H ♦ HI •、 160, THEM RUN 


3180 

HPLOT 35 + 

S,30 ♦ H TO 35 ♦ 


S ♦ SI,30 ♦ 

H ♦ HI TO 28 

♦ S 


♦ SI,24 + 

H ♦ HI: GET 

3190 

HPLOT 35 + 

S,30 ♦ H TO 35 ♦ 


0.5 # S,3C) 

TO 35 + 0.5 * 

S，2 


5 ： GET A* 



3200 

HPLOT 35 ♦ 

S,30 ♦ H TO 35 + 


S,25 

3210 IF N = 1 THEN END 
3220 GOTO 3130 

4000 REM *==»*=*===* ( IV ) =ssss*=s ： s ==： 

4010 HPLOT 40,40 TO 200,40 TO 20 
0,43 TO 40,43 TO 40,40 
4020 HPLOT 40. 130 TO 200,130 TO 
200,133 TO 40,J33 TO 40,130 
4030 FOR I = 1 TO 200 STEP 4 
4040 HPLOT 20 + 1,85 
4050 NEXT I 

4060 INPUT M E=(5E3--2E4V/M) :? M ； 

E ： IF E < 5E3 OR E > 2E4 THEN 
4060 

4070 FOR J = 0 TO 160 STEP 20 
4080 HPLOT 40 ♦ J,45 TO 40 + J,1 
28 TO 43 + J,123 
4090 NEXT J 
4100 GOSUB 5000 

4110 IF G) = 0 THEN HPLOT 10,85 TO 
240,85 ： END 

4120 HPLOT 10,85 TO 38,85 
4130 HPLOT 33,83 TO 38,85 TO 33, 

87 


4138 REM .1 L=0.0BV8N1 

63b.>1D=0.04BV8N90 
3b ； 160/0.08=90/0.045=2000) 

4140 TT = 0.08 / V：TO = TT / 40 

4150 F = E * Q：A = F / M 

4160 FOR T = 0 TO TT STEP TO 

4170 LI = V 箐 T 

4130 D1 = 0.5 箐 A 箐 T 箐 T 

4-LIST4J90, 

41^0 LI = LI 并 2000 ： D1 = D1 * 200 

0 

4200 IF Di < - 45 OR D1 > 45 THEM 

4100 

4210 HPLOT LI + 40,Dl + 35 

4220 NEXT T 

4230 P = Dl / (0.5 * LI) 

4240 L2 = 30 
4250 D2 = P 箐 L2 

4260 HPLOT Li ♦- 40, Dl + 35 TO LI 
'* L2 + 40,Dl + D2 + 35 TO L 
! + L2 + 35,Dl + D2 + 83 
4270 GET A$ 

4280 HPLOT LI + 40,Dl + 85 TO 40 

+ 0.5 * LI,85 ： PRINT M - 

-|， 

4290 PRINT T= M ； T ； "(S )"： GET A 

丰 

4300 PF INT ••箦 X=" ;L1 / 2000 ； " (M) 

": GET B 生 

4310 PRINT "* Y=" ； - Dl / 2000； M 
(M ) H ： GET C$ 

4320 PRINT ••箐 A= M J ABS ( ATN (P) 

> ;(PAD' M : GET D 丰 
4330 PRINT Vy* M i ABS (A * T )； 

M (M/8/S) M ： GET E 丰 

4340 PRINT •， - •， 

4350 GOTO 4100 

49°0 REM =========( v ) 

?C»00 INPUT H G=-1.6E-19--6.4E-19C 
：?** ； Q ： IF 0 < - 1.6E - OR 

Q > 6. 4E - 19 THEN 5000 
5010 IF 0 = 0 THEN RETURN 
5020 INPUT M M=-0.91E-30--6.68E-27 
KG ： ?" ； M ： IF M < 0.9E • 30 OR 
M > 10E - 27 THEN 5020 
5030 INPUT "V=3.0E3--5E7M/S:?";V 

：IF V < 3.0E3 OR V > 5E7 THEN 
5030 . 

5040 RETURN 
会 

吞 RUN 

I=l,2,3：?l 
VO(M/S)=?40 
M=? 2 
N=? 3 
M=? 4 
N=? 1 



图一 
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会 RUN . 

I=i,2,3：?2 

E=(5E3--2E4V/M) :? 1E4 
Q=-1.6E-19--6.4E-19C ： ?-1.6E-19 
M=0.91E-30--6.68E-27K6 ： ?0.91E-30 
V=3.0E3--5E7M/S ： ?2E7 


箐 T*4.00000001E-09(S) 

箐 X*.0780000002(M) 

*•Y«.0133714286<M) 

箐 A=.330297356(RAD) 

篑 Vy*7032967.05(M/S/S) 


Q*-1.6E-19--6.4E-19C ： ?1.6E-19 
M*0.91E-30--6.68E-27KG ： ?1.67E-27 
V*3.0E3--5E7M/S ： ?6E5 


箐 T»1.36666667E-07<S) 

箐 X=.08(M) 

箐 V»-8.51630073E-03(M) 
箐 A*.209775272(RAD) 

箐 Vy*130938.124(M/S/S) 


Q*-l.6E-19--6.4E-i9C ： ?3.2E-19 
M*0.91E-30--6.68E-27KG ： ?6.68E-27 
V»3.0E3--5E7M/S ： ?3E5 


箐 T*2.73333333E-07(S) 

箐 X*.08(M) 

箐 Y*-.0170326015(M) 

箦 A».402560788(RAD) 

箐 Vy*l30938.124(M/S/S) 


Q=-l.6E-19--6.4E-19C：?0 



I*l,2,3：?3 

R0=0.1--0.5M ： 0.4 

B=*0.001--0.01T ： ?0.002 

Q=-1.6E-19--6.4E-19C ： ?-1.6E-19 

M*0.91E-30--6.68E-27KG ： ?0.91E-30 

V=3.0E3--5E7M/S ： ?5E7 


R*.142(M) 
L*.267(M) 
T*1.8E-08(S) 
A=*2.33(RAD) 


Q*-1.6E-19--6.4E-19C ： ?i.6E-19 
M*0.91E-30--6.68E-27KG ： ?1.67E-27 
V=3.0E3--5E7M/S ： ?4E5 


R*2.087(M) 
L=.785(M) 
T=3.2773E-05(S) 
A=.436(RAD) 


Q=-1.6E-19--6.4E-19C ： ?3.2E-19 
h=0.91E-30--6.68E-27KG ： ?6.68E-27 
V=3.0E3——5E7M/S:?3E4 


R=.313(M) 
L=.493<M) 
T*6.3547E-05(S) 
A=1.832(RAD) 


Q=-1.6E-19--6.4E-19C：?0 



关于组织 1990 年全国青少年计算机通讯赛的通知 


一、 目的 ：为推 动青少年计算机教育的普及和提高，为 
1991年参加国际奥林匹克信息学竟赛的组队选拨作准备，特 
组织这次通机赛。 

二、 竟赛时间：1990年11月下旬6 
. 三、竟赛办法： 

1. 由计算机学会组织竟赛委员会，统一命題。 

2. 以省市、自治区为单位组织实施： 

① 參寥选手名额由各单位根据本地实际情况确定。 

② 各单位自行筹备竟赛条件(机器、场地 等）。 

③ 各单位自己组织监考及阅卷评审工作。 

四、命題原 则：适 应国际奥林匹免信息学竟赛的婧况，试 
題类型属上机编程调试解題类型，有一定难度。编程语言不 
作限制。 

机型限定为 ：① C E C _ I 、 CEC — PC 、 苹果机及其兼容机。 


②长城 0520 、IBM — PC 及其兼容机。 

五、 评笑 ：分两 级进行 

1. 第 一级： 由各省、市、自治区将对本地区竟赛的优胜者 
给予追当笑励； 

2. 第二级 ：各消 、市、自治区将本地区竟赛的前三名选手 
的试卷及有关资料送交竟赛委员会，参加全国评选，从中选 
出一、二、三等奖各若千名。 

六、 凡准备参加通讥赛的省、市、自治区，请于9月15日前 
向竟赛委员会报名。有关通讥赛的后续文件，由竟赛委员会 
下发。 

竟赛委员会设 在：北 京师范大学计算中心 
联系 人：谢 文杰、陈美玲 
邮政编码：100875 
电 话：201、2288转2708或2709 
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go 

= 2 

GOTO 64 
=I TO 20 
G03UB 16 




?2 HC0L0R= 3= FOR I = 1 TO 5^ HPlOT 42 ，！ 

^ ^ TO 129,1+4 ， HEKT 

?4 A = 42=8 = i29: GOSuB 1856 


7S h = 2:8 : = 2: GGSUe 1646 

73 A = 2?.2:B = 25S: GGSUE 1858= GOSUB 1895 
&4 A = 9：B = h-C = h ：D = ^ GOSUS \m~ GO 
SUB \m 

85 POKE 232,252: POKE 2.33,29 •- ROT= 8* SCh 
LE= i 

86 UTftB HTAB PRIHT "1 、 活塞上施力 

• HC0LGR=.3: DRAW 2 hT 24542.: _B 4 ’： _ 

厂 

B 2^ PRIHT B fV 

38 K = 2 ; V = 245 Z = 62 GOSUB 2600 


90 GOSUB 1066 

剛菡 P 


UTAS 1: HTAB -i 
D_ i AT 245,71: 


: PRIHT 
POKE 4934, i 


: UThB ? - HTAB 18= PRINT T H 
92 X = \ \ = 245:2 = 71 ： GOSUB 2m 

36 UThB 7 ： HTAB 21: PRINT ” = f^: POKE 4S 

S 4 ，e 

33 X : 1:Y : 245:Z = 71: GOSUB 2086 


m GOSUB \m- UTAB HTAB 4: 

强嫌神體，， 


F'RIMT 


» R ? 


我们在初中物理教学中，进行了多次用微机辅助 
物理课堂教学的尝试，收到了很好的教学效果。初中物 
理课堂演示软件《液压机》是其中一例。 

软件的主要作用是在课堂演示实验的基础上，微 
机以动画的形式展示液压机的构造及工作原理，非常 
自然地导出了物理公式。改变了在讲述物理原理及推 
导物理公式时一般通过板书在黑板上推导的方法 。其 
优点是图文并茂、生动形象、直观趣味。能激发学生的 
学习兴趣，优化了教学> 节省了课时。 

软件在编写时，注意到了课堂教学的实际情况。例 
如:出现的板书简洁，并采用了汉字放大技术以提髙可 
见度。演示一个过程后会自动暂停供教师讲解，只要按 
微机的任意键，又会继续演示等， 

程序采用了 STC 软汉字操作系统，使之既能在中 
华学习机上运行，也能在 APPLE - I 系列微机上运 
行。 B 文件为一些图形的造型表，文件名为 P * 。 

IB PRINT CHRt (4);"BL0AD P." . 

28 CALL -.3886: POKE S82:!: UThB 2 - HThB 

2: PRIHT ■理 课靈示 ": UTAS b ： HThS 

12 ： PRINT 液压机 》 

25 POKE 382,0: UTAB 18: HTAB 3 PRINT "H' 
_lt 中学 1388.9." 

38 POKE 3(32'1: HCOLOR: 3.: POKE 16368,8 
' GOSUB 1095 

补 POKE - 1636SU3: CALL - 30SS: GOSUB 1 
@80 

41 OIH h$(9)^h$(1)= ’ ，大 " : AK2) = n/ ] Vj,; AI 

<3) : = " 缸 H:5)= " 活 H:6) 

:” 塞 ": A$ ， :7> = = " 体、 A$.:3) : 


用微机辅助物理课堂教学一例 

苏州市景范中学 赵旭 
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10S2 NtKT HCOLOR: 3: RETURM 
im IF PEER •: - 163S4) > 127 嘯 POXE 
- !§ 進 3: RETURN 
? G^Til i ㈣ 5 

20^ IF >Eti(( - 沿 84) >127 THEN POKE 
• i£c68,e RET 猶 
26!§ COeiiB 107^ GOTO. : m 



!:4 GOSUE iese- UThB i- HTAB 5 -RIHT :，h 2 



!§bS i: hthb 2 pru t " 

RETURN 

■ VTAB 1: +iTAB 2 PRINT " 
t : PETUfiM 

im XDRAia X. ftT 'Y,2 = "?C8 I * ； TO 286= «E 
’a : CRAW i AT y.Z FOR ： = ! TO S8S: NEXT 

mi 'hCGLO^- 2' HPLOT 4.2；I TO li.j ， I: HFLO 
T ：?：：! T 3 25S ， I: RETLiRH 
<%k' «£CLC«= 2 - m j = 98 TO K 4 6 STEP 
- !■ IF, 1HT >：.! - 5) = J / 5 THEM HPLOT 


• 小经验 • 

关于文本第二页使用的改进 

贵州省铜仁一中 马维达 

《中华学习机》一九九0年第六期刊登了《文本第 
二页使用技巧》一文，但该文提供的方法并不很方便。 
下面介绍的方法，可以实现在任意一页文本页上直接 
进行各种操作及显示字符。 

首先，输入下列命令，将 BASIC 程序移到文本第 
二页 之后: POKE 104，12 : POKE 3072,0 :NEW〆 

然后输人下面的机器语言并执行，系统即已位于 
文本第二页中，可以使用 PRINT 在其上直接显示字符 


或进行各种操作。 

使用 . POKE 6,4 : POKE _16300,0 进入文本第一 
页，再使用 POKE 6, 8： POKE - 16299,0又可进人文本 
第二页，十分方便。 

按下 CTRL - RESET 后需重新运行本程序。 

本程序在 CEC — I 机上通过，也适用于 64 KAPPLE 


机。 

0300-2 C 

81 

CO 

2 C 

81 

CO 

A 9 

00 
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A 9 

DO 
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07 
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• 辅助教学与研 究 * 

运用 APPLE — I 正确评价测验考试分数 


福建光泽一 

摘要 :本文 对传统评分方法研讨，提出标准化记 
分法，建立微机辅助评价系统。软件用模块化程序结 
构，采取程序复盖、链接、 BASIC 语言和机器语言并用 
等技术。系统具有通用性、功能强、可扩充等特点。 


问题的提出 

有两个学生的一次语、数、外成绩如下表。 



如果我们看总分只能讲甲乙两人成绩不相上下。 
若看单科成绩也只能说各有所长。又假如我们看学生 
甲的成绩,似乎可得出数学和英语的成绩差不多的结 
i 仑0 

° 对原始分数的研讨 

測验考试直接得到的成绩（通常为百分制，本文 
称之为原始分数），常用来检查教学故果和进行 决策。 
长期来，以原始分数衡量学、评估教、用于选优（升学、 
笑学金、三好），常存在偏颇，有明显的弊病， 

1、 不能反映一个学生成绩在群体中的地位 

如果我们知道这次考试语、数、外的年级平均分 

分别是74、90、76,那么，甲生语数课的成績低于平均 
分，不算好 i 而 C 生的成绩都在平均分之上，甲乙两人 
有显著差异。但在分數单上未能反映出来。至于甲生 
的數学和英语差不多，这一说法也难成立。因为数、外 
试题难易不同，同是80多分，实际成绩却不同。 

2、 原始分数缺乏可_比性 

从上表可能会认为 已的数 学成绩最好，语文次 
之，外语较差。可是一看各科平均分（数90、语74、外 
76), 便知90分的数学成績不够理想、语文81分则是 
一个较好的成绩。再比如，若甲生上次数学测验分数 
为75分、可否断定这次他的数学进步了呢？不能。上 
次測验全班平均分为68分、他得75分、属中上。而这 
次得86分属中下。可见，原始分数仅反映卷面分，而 
无法得到其他信息.加上不同教师不同诔程，原始分 
數更缺乏可比性。 

3、 原始分數不具备可加性。 

平常习惯将不同学科的分數直接相加得到总分， 
并用来作出决策（如录取、评优）。实际上，不同学科的 
分数，分數的比值不相同，也有不同的参照点。我们不 


中 魏灵 

能说数学成绩的一分与语文成绩的一分是相等的，就 
好象一姜元不等于一人民币'元一样。 

二. 标准化分的数学方法 

为了科学、准确地进行成绩分析，为教学工作提 
供正确的反馈信息，利用数理统计学中的正态分布原 
理对原始分进行标准化记分处理。 

设有 N t 李生的某科成绩分别为 X ., X 2 , ……, 
X „ ，则平均分又和标准差 S 为： 

x =2 x,/n 
1 = 1 

s= J^a^-xy/N 

标准分 ^式为： 

1= ( Xi — x)/S 
取标准化记分公 式为： 

A =60+10 I 

这样，分数 A 不仅能表明原始分 x , 在分数分布 
中的相对地位，而且具有可比性和可加性。这种以全 
班年段平均成绩为基础，以标准差为量度的分数 A ， 
受题目难易和评分松紧的彩响较小。 

三. 系统设计及功能 

在正确评价測验考试分数系统研制中，考虑了以 
下几方面的问题，也是系统功能 要求： 

] .解决内存容量小，数据量大的矛盾，采用了模 
块化程序结构和程序复盖、链接技术，由一个主控模 
块常驻内存，按需要对磁盘文件进行'功能模块的调度 
工作。 

2. 为了操作方便，米用了“ 菜单” 显示，只要输入 
班（年）级人数、课程门数和各科的原始分数，系统便 
生成标准化分数数据文件，可打印输出群体成绩对照 
表。个人成绩报告单和单科分数表等， 

3. 考虑到系统扩充的要求，以年级为编码单位， 
儿个年级的一次考试分数存在一张磁盘上，便于保 
存，进行统计分析。 

心为了提高运行速度，采取了编程技巧处理，如 
“多择一 ”的选择结构、快速排序法等。且把 BASIC 语 
言和机器语言并用。 

系统结构困 如下： 








四.系统应用及运行环境 

1•应用。该系统调试通过后，几年来在正确评价测 
验考试分数中，发挥了积极作用，使用效果好。每年的 
初高三毕业班的测试成绩、初高一新生分班的成绩依 
据、各年级教学质量的分析，都离不开这一系统。在同 
班、同年段各学科、各个人之间可以进行公正比较，优 
劣昭然若揭。同时也为家长合理提供子女的学业成 
绩。 

2.系统运行环境。在 APPLE — H 微机上运行，主 
机采用8位 CPU —6502,内存 RAM 64 KB 、 ROM 16 KB 。 

外部 设备： 打印机、两台5+英寸软盘驱动器。若有汉 


字系统，该系统易扩充为汉字提示，操作更为一目了 
然„ 

五.结束语 

微机应用日超普及，使得繁杂的运算变为简单，大 
量的数据处理、数据分析均由计算机进行。“运用 ap¬ 
ple— I 正确评价测验考试分数”系统，只是微机在辅 
助学校教育管理中的一个方面的应用。笔者希望能在 
将来的升学录取中采用科学合理的方法，对測验考试 
分教进行正确评价处理，从而促进教学质4•的全面管 
理。 


• 故障检测与维修 • 

排泠主机驱动器接 CJ 故陣 

武汉市环境监测中心站 邵开忠 王光辉 


一.故障现象 

开机后起动正常，并且所有 DOS 3. 3的读盘命令 
(如 LOAD 、 CATALOG 、 RUN 等)都能正常执行。但是， 
在使用 DOS 3. 3的写入指令（如 IN 1 T 、 SAVE , LOCK 
等)时，驱动器响声很大，最后都显示 “ I/O ERROR ” 信 
息，而且无论磁盘上是否贴写保护，都会把$ 0道和 
$11道写坏。用 CEC _ I 测试程序测试时，用 “ R/W 
测试”项测试结果为 “ F 今 IL ” (失败）。 

二.査找原因 

从上述现象判断,故障最有可能发生在 CEC-I 
主机的驱动器接口电路或驱动器本身故障。 

1. 缩小故障范围 

首先把驱动器接到另一台工作正常的主机上，发 
现读写良好。接着把一台好驱动器插到有故障的主机 
上，发生上述故障相同的现象，由此可以断定故障发 
生在主机上。 

2. 主机故障寻迹 

由于故障发生在驱动器接口电路上的可能性较 
大，从< 中华学习机 CEC — 1技术参考手册> (硬件） 
査出了驱动器接口电路的逻辑图和126〜130页的说 
明。从图中分析可知,在“读”正常的情况下,!《50八- 
TA.ENBLIS CLK 0-3 信号线所对应的电路不应有问 
题。而出问题的部位很有可能在 WPROT、WRDATA 
及 WRREQ 三根信号线所对应的电路。 

开机引导 DOS 3.3, 然后用万用电表 X 10 V 档测 
定写请求 WRREQ 信号——即主机印刷电路板上 U 41 
的12脚 ( Q 7)， 此时应该是低电平(开机后设定为“读” 
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状态,写请求无效），测定值为 0.2 V ， 正常。接着进入 
f 控状态，键入 * C 0 EF〆 ， 此时设定为写请求有效，应 
为高电平，测定值近似3_ 5 V 低于高电平的正常值(应 
为 4 V 以上），但是通过在监控状态下交替读 C 0 EF 和 
C 0 EE . U 4] 的12脚电平呈高低变化，说明 U 41 工作 
正常。故障可能发生在下一级电路。 

从逻辑图上可以看出，写请求 WRREQ 信号由 
U 4] 的12脚发出以后，接到 U 44 的〗3脚，经反相以 
后再控制驱动器。那么 U 44 的13脚和12脚的电平应 
该相反，采用读 C 0 EE 和 C 0 EF 的方法交替改变 U 44 
的13脚的电平,但测定 U 44 的12脚电平结果总是 
低。接着我们又测定了 U 445-6 脚，3—4脚和 9-8 
脚结果都正常，当一端为高电平时另一端必定为低电 
平，高电平值都在 4 V 以上。至此可以确定 U 4413-12 
脚的〜组反相器损坏。 

三、处理过程 

U 44 是一块 74 LS 05, 内部电路中有6个反相器， 
我们所修理的二台主机中它被直接焊在主印制板上， 
不易起下来。因此,第一步先剪断 U 44 的13脚和12 
脚，用万用电表 （ X 1 K 档）测其正反相电阻只有几十 
欧,而正常值应为无穷大，证明这组反相器已坏。在逻 
辑图中只用 f U 44 的5个反相器，再查看印制板发现 
U 44 的 1-2 脚悬空未用。用导线将 U 44 的原13脚接 
点引到1脚(输入端），〗2脚引导2脚(输出端）。焊好 
后接好各个接口，开启电源再试，读/写一切正常。这 
样，我们修好了二台类似故障的中华学习机。 






独树一帜的文章编辑系统 

傅叔平 



. 众所周知 ，著名 的字处理软件 WORDSTAR 早已 
在 IBMPC/XT 及其兼容机上实现了汉化，近年来也有 
不少人试图将它搬到中华学习机 CEC — I 上来，其中 
不乏成功者，不过作者认为现在 CEC — I 上实现的类 
似 WORDSTAR 的编辑软件存在两大不足 ：（ 1)CEC — I 
内存小而 WORDSTAR 十分庞大，留给用户的内存空 
间所剩无几 t(2)CEC — I 的用户一般都没有接触过 
IBMPC/XT 上的 WORDSTAR ，使用者要从头学习一套 
比较复杂的命令系统，对初学者尤为 不宜- •另外，这些 
文章编辑系统都没有考虑汉语的标点符号习惯，打印 
输出的文章中逗号等.常出现在一行之首，不合汉语规 
范。 

针对上述问题，作者独辟蹊径，开发了.一个 CEC 
- I 五笔型输入与文章编萌系统。在该系统中采用了 
与编辑 BASIC 程序完全一样的方法来编辑.文章，编辑 
的文章文件的形式也与 BASIC 程序类似。例如，编辑 
的形 式为： 

10 ，， @C05@W20 计算机 

20”软件 

(其中以“开头的是命令，“ ®C05@W20” 表示 
以下的文字用 5 号汉字以每行 20 个汉字的宽度输 
出），阅读或打印时为： 

计算机软件 

行号和随后的引号以及命令不会输出，被编辑的 
文章文件的每一行的一般形 式为： 

<行号 >”< 文章内容或命令>_ 

此种编辑方式有两大优点：①由于完全利用了 
CEC - I 机原有的编辑 BASIC 程序的所有功能和方法， 
即充分利用了机内固化的 APPLESOFT 资源，整个文 
章编辑系统仅占 1 K 多一点内存，这是任何其它文章 
编辑系统都难以作到的；②由于和 BAISC 类似，凡接 
触过 BASIC 的人一看说明书即会，即使完全不懂计算 
机的人也极易学会使用。且这样一来，原来处理 BASIC 
程序的所有命令如 NEW 、 LIST 、 SAVE 、 LOAD 等以及编 
辑 BASIC 程序的所有方法(输入、插入、删除、替换、移 
光标、复制行、用 RENUMBER 程序合并文章等)均和 


原来一样。换句话说，除了命令 “ RUN ” 不能用外，其它 
的一切照旧。用户甚至还可以不用本系统在标准 
DOS 3. 3下编轵文章，只在输出文章时再用本系统。 

该软件在设计中还特别考虑了汉语习惯中行首和 
行尾标点符号的处理，例如，逗号、句号、后引号、后括 
.号等不论怎样定行宽都不会出现在一行之首;前引号、 
前书名号、前括号等决不会出现在行尾。 

考虑到编辑文章的方便，在该系统中用户可设置 
每页行数、每行字数、左边界、行距、字距、字型、跳格、 
退格、换行、跳行、换页是否打印页号、起始页号、单页 
输出、暂停等〗5种命令参数，且这些参数可以在任何 
地方任意地改变。在阅读/打印文章时用还可以任意指 
定输出的份数和页码范围(如，对已编辑好的文章发命 
令“8^幻!^'5,3,6”表示从第3页到第 6 页打印5份） 
据众多用户长期使用表明这些功能对编辑文章已绰绰 
有余且十分方便。' 

当然，此种方式也有一个缺点 ：由于 APPLESOFT 
对一行的长度有限制，所以输入时在一个行号后面输 
入的汉字个数有限制（约78个汉字），超过此数时须另 
起一行。不过这个关系不大，因为阅读/打印文章时每 
行的长度与被编辑文件每行的长度无关，只与行宽、换 
行等命令有关。 

下面让我们再来看一个例子，假设编辑的文件为： 

10 ,, @ W 19@ D 02@ I 04 

20"@ M 07@ B 0 Gnn 单页输出，当 nn = 00 时连续输出； 

nii = 01 时毎输出一页便停下来,按任一键后继续输出.该功 
能便 _ 

30” 于单页纸及腊纸的打印 

其中以引导的是命令，10行的含义为 :页宽 
为每行19个汉字，字距2,行距4。20行中的 “® M 0 7 
® B 07” 含义 为:左 边界为7,退后7格输出，实际输出 
时为： . 

Gnn 一一 单页输出，当 nn =00 时连续输出.当 nn = 0] 时 

毎输出一页便停下来，按任一键后继续输出 
该功能便于单页纸腊纸打印。 

从此例中可看出：① 虽然％ 和30行将文章内容 





扯断了，但输出时并不受影响;②此例演示了退格命令 
和左边界命令的效果。请注意，自动换行时不是回到最 
左端，而是定义左边界的地方，而突出部分 “ Gnn ——” 
输出位置是由退格命令决定的，退格是本系统独有的 
功能;③在输出第二行末尾的句号时，已超过定义的行 
宽 （19 个汉字），但因是行尾的句号，仍不提行，这也是 
本系统独有的功能。 

另外,该系统中的五笔字型输入法也颇具特色： 
(1) 它既可在文章编辑中使用也可在 DOS 、 BASIC 、 监 
控中使用； （ 2) 可和原有的拼音、 区位法 混用； （ 3) 最大 
的特点是具有伴有音响的简码字提示,这使得用户不 
须记忆简码而能对所有具有简码的汉字均用简码输 
入，大大提高了输入速度 〆 4) 具有词组输入功能，用户 
还可根据自己的需要向系统词组库中添加词组或另建 
词组库，并且可以不按五笔字型规则确定词组代码，用 
户甚至可利用此功能造一套自己的汉字(词)输入法。 

【附注】 本软件已纳入全国软件资源信息库系统 
并在中国软件登记中心登记备案（登记号 = 900085), 请 
参阅《软件产品公报》90年1期及《软件报》90年4期， 
本软件90年6月在成都市首届计算机教育成果评奖 
中获软件一等奖。 . 


• 软件介绍 • 

PRODOS 系统的磁盘管理 

四川万县中学 晏玉坤 

PRODOS 系统对磁盘的管理是以信息块(或称作 
簇）为单位，每块含两个扇区，整盘以35道共计280 
块，系统对信息块从$00 〜 $117统一编号， $00- 
$ 07在0磁道，$ 08〜$ 0 F 在 ]■ 道，$ 10~ $ 17在2 


道,……，$ 110 〜 $117在34道。各块编号与磁盘扇 
区之对应4系如 下表： 


块号 

$0, ${ 

$ 1. $9 

$2, $ A 

$3, $1 

$4,$( 

$5, $[ 

$ 6, $1 

$7, $F 

扇区号 

0与14 

13—12 

11 — 10 

9-8 

7-6 

5-4 

3—2 

1与15 


磁盘中，$0— $1块存放 BOOT 程序，$2— $5 
块存放文件@录，$ 6块为磁道位图，$ 7— $ 117块存 
放用户文件。 PRODOS 本身为文件形式存于用户空间 
里，磁盘启动后, BOOT 程序会自动寻找该文件以引入 
内存。 

$6块为磁道位图，系统用该块的前35个字节以 
记载35个磁道的使用状态，每个字节的8个位从高位 
到低位记载相应磁道上8个块的使用，占用者记“0”， 
空闲块记“1”。 

系统在写入文件时，在空闲 E 内从前向后依次使 
36 


用，首先在第一个空闲块写入文件，当文件长度在一块 
之内时，文件仅占用此块。当文件长度超过一块时，以 
第二空闲块记载文件占用的块号，在第三空闲块再继 
续存放文件。所以系统中设有长度为2块的文件，由 
此可见，要査看磁盘文件的块号表，应在该文件所占信 
息块的第二块。文件在读写时，在缓冲器的后两页 
( $ 9800& $ 99 FF ) 中存放文件块号表。 

文件目录在$2 〜 $5块，其 $4 〜 $13 字节为盘 
片名（前缀名），其中的第一字节的后 4 位为盘片名的 
字符数 。 $ 29 - $ 2 A 字节 为磁盘 总块数$ 1 】8 。 从$那 
字节连续往后每39个字节存放一个文件名，共可存放 
51个文件名。文件名的39个字节所表意义 如下： 

0：文件名长度（字符个数）。取后4位有效，文 
件删除后置$00。 

1-15： 文件名，最多15字符，只允许使用字母和数 
字字符。 

16：文件类型， $ FF — SYS , $ FC — BAS , $06— 
BIN , $04— TXT 。 

17-18： 文件块号表所在块号 
19-20： 文件长度的块数 
21-23, 文件长度的字节数 

24-27： 文件最后修改日期，其中第1字节为月份和 
天日数，第2字节为年份数，第3、4字节为 
时、分数。只是这些数字的运算复杂,不能直 
观得之。 

28—29 ： ? 

30：文件名加锁记号，加锁为$21,不加锁为 
$ E 3。 

31-32： 文件在内存中的首地址，若是数据文件则为 
R 参数。 

33—36:文件起建日期，意义同前。 

37—38： ? 

PRODOS 系统的磁盘也可以用 DOS3. 3 系统中的 
RWTS 进行读写操作。 

另外， PRODOS 系统十分庞大，除占用 DOS3. 3 系 
统使用的 $9600~$BFFF 区域夕卜，还占用了 16K 语 
言扩充卡。 

16K 语言卡使用 12KROM 的地址值，其使用如 
“ Y ” 状结构。 PRODOS 系统由 B 块进入扩充卡。只是扩 
充卡中的内容是不便査看的，若要想査看，可以先将其 
12K 内容移到 RAM 中，再用 L 命令列出。但移出时不 
可用 M 命令，需要另编程序。这里顺便提及，不便详 
述。 

最后说明，以上内容为本人分析所得，未有可靠的 
资料，谬误难免，望指正。 




• 电脑神 通 • 



用中华学习机编建筑工程预算的探讨 



CEC — I 型中华学习机由于它的性能价格比较 
好，深受大家喜爱，目前已大量进入学校和家庭，为普 
及和学习计算机创造了条件，但是这种机型能否在工 
程计算方面也让它发挥一定的作用呢？当前有许多中 
小型建筑公司都有极其繁重的预、决算工作要做，由于 
預、决算工作牵涉的面较广，需处理的數据量太大 ，一 
般只有大型建筑公司才有条件用计算机来进行计算， 
一般中小型建筑公司又买不起大容量的计算机，因而 
用计算机来计算预、决算工作就难于普及，本程序就是 
利用中华学习机来进行预、决算计算的尝式，经过实 
践，证明这个方法是可行的，它既为中小型建筑公司解 
决了廉价的计算机系统，減轻了繁重的计算工作，提高 
了预、决算工作的速度和精度，也为向工程计算领城推 
广和普及中华学习机创造了条件，现将该程序推荐给 
大家，供参考。 

本程序将现行的江西省建筑工程综合预算定额中 
(土建部分）的九个分部共一千多项定额进行一次初 
选，将一些根本就不用的项全部删掉，经过初选后的常 
用项目约有500多项，同时对材料表也进行一次删减， 
对一些无关紧要的材料一律取消，剎下需计算的材料 
项目有30余种，尽管初选中已经删掉了大部分不用的 
数据，但仍有一万多个數据需要处理，经过删減后的數 
据再按不同的分部、利用程序一，将各分部定额分别以 
数据文件形式存入磁盘，数据文件分别按分部工程序 
号为文件名的序号，由主程序（程序二）以菜单形.式、中 
文提示的方法由操作者选择调用，各分部工程计算结 
束后，可选择总结项，程序以人机对诂形式由操作者逐 
项输入各种取费费率，最后由机器输出工程总造价，各 
项费用，人工工日，材料汇总等内容。 

由于各省、地、市所采用的定额内容不完全一样， 
各地可根据当地现行定额建立定额数据文件，利用上 


述程序即可进行倾、决算工作。 


本程序的运行环境为： 


CEC — I 中华学习机 

一台 

農示器或电视机， 

一台 

5磁盘驱动器 

4 

一台 

打 印 机 

一台 


程序的使用 方法： 

首先将程序一调入内存，然后按下述步骤进行操 
作： 

一、 计算经过删减的各分部工程中的定额项目的 
数量分别是多少？ 

例 如：第 1分部的定额项目为50项，第2分部的 
定额项目为80项， 

第 N 分部的定额项目数为 X 项。 

二、 将需要计算的材料进行 编号： 

； 

例如—代表水泥，2 — 代表砂,3—代表砧…… 

奸确定材料编号的最大值。 

三 、 将人工工日、人工工资、机 械费、材料费等项目 
也进行编号，并将此编号计算在材料编号之后。 

例如 :设材 料最大编号为26,则 

27— 代表人工工曰 

28— 代表人工工资 

29— 代表机械费 

30— 代表材料费 

四、 确定定额数据文件的文 件名： 

第一分部的定额数据文件名为 A 1 ,. 

材料数据文件名为 B 1。 

第二分部的定额数据文件名为 A 2, 

材料数据文件名为 B 2。 

第 N 分部的定额数据文件名为 AN , 

材料数据文件名为 BN 。 

五、 置定程序一中的各项有关 数据： 

1,10句中 DIMB ( ), B $ () 中填入所计算分部的 
定额项目数。 

2,94句中 DIMA (,) 中逗号前填入所计算的分部 
定额项目数，逗号后填入所计算的分部的材料项目數。 

3,81句〜88句及151 句〜 163句调整所计算分 
部的定额数据文件名和材料数据文件句。 

4,调整循环次数的值， 

FOR 1=0 TO (该分部定额项目数 一1) 

FOR J = 0 TO (材料编号数一 1) 

程序一中是以定额项目数为材料编号最大值 
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为30,计算的是第一分部，故文件名为 A ] 和 Bl 。 

六、进行上迷处理后，就可以开始将定额存入磁盘 
了。启动程序一， RUN〆 ，屏幕显示 NO , 键入定额编号 
〆 ，屏幕显示 B ( l ) = ，接着再输入该编号的定额基价 
〆 ，屏幕又显示 NO , 重复上述过程，待上述数据输完 
后，屏幕显示 XIU GA 1? ( Y 、 N ), 这是提问前面输入的 
数据是否需要进行修改，若前面输入数据中有错，则键 
入 Y〆 ， 屏幕显示1 = ?，是提问第几项要修改，假设要 
修改第10项，键入10 〆 ，屏幕显示10 NO , 此时键入 
修改后的定额编号 〆 ，又显示 B (10)= ，键入修改后的 
定额基价 〆 ，接着又显示 XIUGA 1? ( Y ， N ), 若不再修 
改，键入 N〆 ， 磁盘驱动器就启动，将上述定额文件以 
A 1 为名存入磁盘。存盘结束后，屏幕显示刚才输入的 
第一个定额编号，以及 B ( l ) = ，此时输入以1为代号 
的材料數憂 〆 ，接着又显示 B (2)== ，输入以2为代号 
的材料数量……。单项定额数据输完后，屏幕显示 XKJ 
GA 1? ( Y , N )。 若要修改，键入 Y〆 ， 屏显 J =? ，提问要 
修改第几项内容。例如要修改第9项，则键入9 〆 ,屏 
显8(9) = ?。键入修改后的數据 〆 ，屏幕又提问 XIU 
GA 1? ( Y ， N )。 若不修改，则键入 N〆 。 屏幕就显示下 
一个定额编号，重复上述过程，直至每一个定额编号的 
材料量都输入以后，磁盘驱动器就自行启动，桷键入的 
材料数据全部以 B 2 为文件名存入磁盘，存储工作就, 
告一段落。为了查看和核对已存入的數据，可用 
RUN 170 启动，屏幕就会书刚才输入的数据全部显示 
出来供查阅。第一分部结禾后，就可以同样用上述方法 

存储第二分部 . 第 n 分部的定额数据，直至将全部 

定额數据存完后备用。 

第二项是预、决算的计算程序的使用方法，首先将 
程序二调入内存，程序中安排 

200 句〜 398句为第一分部的计算， 

400〜598为第二分部的计算， 

600 〜 798为第三分部， 

800—998 为第四分部， 

1000~1198为第五分部， 

)200—1398 为第六分部， 

. 1400~1598为第七分部， 

1600—1798 为第八分部， 

1800〜1998为第九夺部， 

在各分部的计算程序中，仍需要用各分部建立定 
额數据文件时用的數据作一次相应的调整，同时将各 
分部的定额项目数是最大的值调整第5句中的维数 
值。例如:'第一分部共44项，第二分部共78项，第三 
分部共46项，……，其_中最多的是78项，则用78作为 


维数值 d 真入第_5句的有关项内，数据调整工作结束 
后，就可以执行程序了，用 RUN 启幼，屏幕用中文显 
示菜单，列出各分部工程的清单及序号，操作者可根据 
需要选择计算项目，键入所需计算项目前的序号 〆 ，屏 
幕即显示 NO , 此时即可键入所需计算的工程编号 〆 ， 
屏显?键入该编号的工程数量，……待该分部的全部所 
需计算内容全部输入后，键入“ + 计算机就自动计 
算，并在屏幕上显示计算的结果，其格式如下： 

NO , SHU LIANG DING E JIN E 

(编号）.（數量 ') (定额） （金额） 

输出上述各项数据后，又列出 

XIAO JI : 

(小计） 

接着屏慕又列出各项目的材料分析，以及材料汇 
总小计。数据列完后，机器会暫停，等待操作者查阅认 
为无误后，按任意键，屏幕重又显示中文菜单，供操作 
者选择下一分部的计算，重复上述过程，待各分部的工 
程量都计算完后，在中.文菜单中选择总结项，屏幕就显 
示刚才所计算的全部工程总费用，并列出备种取费的 
费率询问句。由操作者根据当地执行的取 f 丰，以人机 
对话的形式，逐个输入。注意程序中已考虑了费率的百 
分比，如费率为1%,则只需键入1，若费率为3.24%, 
则只需键入 3. 24,所需费率全部键入后、，屏幕就显示 
出各种费用以及总造价，并列出各种材料的汇总，整个 
工程所需的人工工日 ，人工工资， 材料费，机械 费等相 
关内容。 

注意 事项： 

一、 计算预、决算时所用的定额编号必须与定额数 
据文件中选用妨一致，为避免混淆，建议末用下述方 
法，例如第一分部第16项定额，则用1016。_第四分部 
第 1 M 项定额，就用4123,即第一字为分部序号，后三 
位为定额序不足三位者，在前面加0,以凑足三位。 

二、 计尊中所用的定额编号必彡页是定额数据文件 
中已经有的，若选用了定额数据文件+没有的定额编 
号 ，裎序 将显示出错。 

三、 程序考虑到某些小型建筑公司没有条件添置 
打印机，所以以屏幕显示输出为主，这样最节约的措施 
是只有购一台主机，一台磁盘驱幼器就可以满足使用 
了，因为电视机一般都已经有 t » 

以上裎序已经试用，效果较好，但由于本人对计算 
机知识尚在学习阶段，希望能抛砖引+ ,以求得更进一 
步的改善。 

注 ：因程 序较长从略。 
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• 接□技术 • 


实用的 apple 1串行通 讯接口 


大连海运学院电子系 夏志忠 


〔摘要〕 本文介绍用6850接口芯片制成 APPLE 
n 串行;通讯接口，电路简单实用，编程方便；本设计使 
用 Microsoft GBASIC 语言编写收发程序，在与 IBM — 
PC 计尊机串_行口相连后实现了数据的双向串行传送。 
波特率可以从硬件与软件二个方面调整，使用方便。， 
一： 串行接□的硬件电路 

用6850制成的 APPLE B 串行接口电路如困一所 
示，左侧是 APPLE n 50芯外设插座，右侧是标准 RS — 
232 C 连接器，现将有关的连接线说明 如下： 

1、6850片选信号 &连至 APPLE n 外设插座中 
的 DEVSEL ’ ij 是因为 APPLE I 是贮存器对应的 I / O , 
I / O 占内存的地址是 COOOH — C 7 FFH ，其中 I/O SEL 片 
选信号占256个端口，而 DEVSEL 只占16个端口， 
6850有四个寄存器，其中二个是只读，另二个只写，故 
只需二个端口地址即可以。当本接口插入2号槽口 
时，并且将 A 。 接至6850寄存器选择口 RS 时，端口地 
址应是 COAOH , COA 1 H ，对应于 APPLESOFT BASIC 
与 Microsoft 不同的地址关系如表一所示。 


接口板播入2号槽口的寻址 端口： 表 -- 



Applesoft BASIC 

Microsoft BASIC 

6850寄存器名称 

十六进制 

十进制 

负地址 

十六进制 

十进制 

负地址 

状态/控制寄存器 

C 0 A 0 H 

49312 

-16224 

E 0 A 0 H 

57504 

-8032 

收/发寄存器 

C 0 A 1 H 

49313 

-16223 

E 0 A 1 H 

57505 ' 

-8031 


APPLE I 
外设插座 



另外，根据困二所示的 APPLE I 读/写的时序关 
系知道，6850的 R / 兩信号可以直接与50芯外设插座 
R / W ' 线相连接。并且要求6850的启动信号 E 接高电 
平，以启动总线输入与输出數据缓冲器，故应接时钟 
00,保证数据的正常接收与发送。 

2. 收发时钟的产生 

收发时钟是由集成定时器 NE 555 组成的多谐振 
荡器产生，振荡频率是 19. 2 KH Z , 并且用 74 LS 93 作分 
频器，输出的分频频率可满足不同波特率的要求，波特 
率=时钟频芈 + n , 对于6850芯片在编程时可设置的 
n = 1,16,64,对于异步、串行通讯一般 n 取16或64, 
为此计算出的波特率值如表二所示。 


tPO 
cp 1 



图二 


波特率计 算表: 


表二 


收/发时钟 

n = 16 

n =64 

19. 2 KH Z 

1200 bt 

300 bt 



150 bt 



75 bt 

2. 4 KH Z 

150 bt 

/ 

1.2 KH Z 

75 bt 

/ 


另外，1488,1489作为电平转换使用，以满足标准 
RS — 232 C 接口电平之需要。 


二、串行接□通讯的软件设计 

在熟悉6850芯片编程糢型的基础上，通讥软件既 
可以用汇编语言编写亦可用高级语言编写，一般 AP - 
PLE I 配有 Z 80 卡，故也可用 Microsoft BASIC 编写通 
讯软件，若无 Z 80 卡，则可用 APPLESOFT BASIC ，但 
要注意端口地址的不同，收发标志的确定。下面介绍在 


I ' fl - 串行接□电路 
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D 7 | 

D 6 

d 5 

D ^l 

D3 

D 2 

Di 

Do 


wS 


字符格式控制 mi , 1? 


若禁止中断， RTS 无效 ，8 位数据，停止 1 位，则控制字 
是 01010101 B , 是 55 H (十进制是 85), 这样即为查询 
式收发，状态寄存 器是： 


D 7 D 6 D 5 D /1 D 3 D 2 D 1 D 0 


IRQ 

PE 

OVRN 

FE 

CTS 

DCD 

fDRE 

RDRF 


中断请求 一1 溢 k ； 帧 4 清发送 " Tii ; 器满 

奇偶校验错 载波检测发送器空 . 

当状态寄存器各位为“1”时，将出现上述情兄，只 
要米用与指令可取出相应的位，用以判别 ACIA 的工 
作状况。 

2、收发程序 

程序.采用查询式收发，其流程图与程序如图三所 
示，本程序可实现字符的收发，但未编入中断，错误判 
别，只要了解上述编程模型，完全可以编写出更好的通 
讥程序。当要提高传送速率，最好采用汇编语言编写收 
发程序，以确保正确接收与发送。 

5 HOME 

10 FOKE (— 8032),3; 总清0 

20 PRINT “ DO , YOU WANT ENTER RECEIVE ? ( Y / 
N )，， 

30 K $ = INKEY $ 

40 INPUTK $ 

50 IF K $ = “ Y ” THEN 200; 进入接收 
55 PRINT“PLSASE TYPE CHARACTER OF TRANS - 
MIT ” 

60 T $ = INKEY $ 

65 INPUTT $ f 输入发送字符 
70 T = LEN ( T $ ) 

75 POKE ( — 8032)，85 ; 写入控制字 
80 FOR 1=1 TOT 

85 B $ = MID $ ( T $ ,1,1) - 

90 B = ASC ( B $ ) 

95 D = PEEK ( —8032) 

100 D 1 =D AND 2 


CP/M 操作系统下用 GBASIC 语言编制的通讯软件。 
1.6850 的编程模型。 

6850的编程方法比较简单，主要是将命令写入控 
制寄存器，并随时读取状态寄存器内容，尔后决定是收 
还是发。其中控制寄存器如下 所示： 


105 IF Dl = 2 THEN 120 ; 发送器空否？ 
110 GOTO 95 

120 POKE ( —8031 )，B ; 发送一个字符 

125 NEXT I 
130 GOTO 20 

200 POKE ( — 8032),85 ; 写入控制字 
203 C = PEEK ( —8032) 

205 C 1 =C AND 1 ; 接收器满否？ 

210 IF Cl = 1 THEN 230 
220 GOTO 200 

230 E = PEEK (-8031); 接收字符取出 
240 IF E =13 THEN 200 
250 PRINT CHR $ ( E ), 熒屏显示字符 
260 GOTO 200 



图三 


实际使用证 明：本 接口电路简单，数据收发准确， 
可以作为 APPLE II 异步通讥的应用。 

参考文献 
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2:蔡连红等编著 〈 APPLE 微型计算机系统（上）〉 
清华大学出版社，1988、11 

3、< MICROPROCESSORS ： HARDWARE ， SOFT ¬ 
WARE , AND DESIGN APPLICATIONS > 1984 bY RE - 
STON PUBLISHING COMPANY 


6 4 0 

Is 


40 













关于隐设 basic 语句的方法，已有一些文章介绍 
过: 就是将 BASIC 程序的链指针做适当改动即可将程 
序中某些重要语句隐去，防止被 UST , 且不影响程序 
的正常运行。这种加密虽好，但实际的加密操作十分繁 
索,且难免不出错，甚至可能破坏程序。为解决这一矛 
盾，以便能快速、准确地使用这种加密方法，特编制了 
程序一。 

使用方法： 

先按下列步骤做好准备 工作： 

1 、 输入程序一 

2、 键入命令 , CALL 768,以设置&命令的人口地 
址。 

做完准备后，即可使用 命令: &行号 〆 ，把该行号 
的语句隐没掉，且不影响程序的执行。 

使用时请注意以下 几点： 

1 、 basic 程序的第一语句不能去掉 * 

2、 不要隐去程序中 GOTO 、 GOSVB 等转向命令的 
目标语句，否则将会影响正常运行程序《 

3、 如程序中没有所要求隐去的语句，则不会得到 
任何 结果； 

4、 在不使用该命令时，不会影响使用者对 BASIC 
程序的编辑工作。 

程序一 


0300- 

A 9 

4 C 


LDA 

# $4 C 

0302- 

8 D 

F 5 

03 

STA 

#03 F 5 

0305- 

A 9 

10 


LDA 

# $ 10 

0307- 

8 D 

F6 

03 

STA 

$03 F 6 

030 A - 

A 9 

03 


LDA 

# $03 

030 C - 

8 D 

F 7 

03 

STA 

$03 F 7 

030 F - 

60 



RTS 


0310- 

20 

67 

DD 

JSR 

$ DD 67 

0313- 

20 

F 2 

EB 

JSR 

$ EBF 2 

0316- 

A 5 

68 


LDA 

$68 

0318- 

85 

09 


STA 

$09 

031 A - 

A 5 

67 


LDA 

$67 

031 C - 

85 

08 


STA 

$08 

031 E - 

A 5 

09 


LDA 

$09 

0320- 

85 

07 


STA 

$07 

0322 - 

A 5 

08 


LDA 

$08 


0324- 

85 

06 

STA 

$06 

0326- 

A 0 

01 

LDY 

# $01 

0328- 

B 1 

06 

LDA 

($06 ),Y 

032 A - 

F 0 

20 

BEQ 

$ 034 C 

032 C - 

85 

09 

STA 

$09 

032 E - 

88 


DEY 


032 F - 

B 1 

06 

LDA 

($06 ),Y 

0331- 

85 

08 

STA 

$08 

0333- 

A 0 

03 

LDY 

# $03 

0335- 

B 1 

08 

LDA 

($08 )，Y 

0337- 

C 5 

A 0 

CMP 

$ A 0 

0339 — 

DO 

E 3 

BNE 

$031 E 

033 B — 

88 


DEY 


033 C - 

B 1 

08 

LDA 

($08 )，Y 

033 E - 

C 5 

A 1 

CMP 

$ A 1 

0340- 

DO 

DC 

BNE 

$031 E 

0342- 

88 


DEY 


0343- 

B 1 

08 

LDA 

($08 )，Y 

0345 — 

91 

06 

STA 

($06 )，Y 

0347- 

88 


DEY 


0348-+ 

B 1 

08 

LDA 

($08 )，Y 

034 A - 

91 

06 

STA 

($06 )，Y 

034 C - 

60 


RTS 


034 D - 

00 


BRK 



•小经验* 

中华学习机实用引导程序 

云南省保山师范专科学校 尹天益 

在很多中华学习机资料上都介绍了在 HELLO 引 
导程序 中加入 PR # 3： PRINT 程序运行后，系统开机 
既自动进入中文状态。但用这种方法进入中文状态后， 
系统却不能处理 DOS 命令。 

而采用如下引导禮序，可在开机后既能自动进入 
中文状态并能处理 DOS 命令。 

10 FOR 1=0 TO 17： READ X：POKE 47721 + 1, X : 
NEXT I 

20 PR # 3： PRINT : CALL 47721 
30 DATA 8,32,81,168,169,0,141,94,170,141,82, 
170,40,106,141,81,170,96 
40 PRINT CHR $ <4 >“RUN MENU ” 

50 END 




•加密与解密 • 


谈 APPLE 机隐含文件名加密 

航天工程学院电子系 曾维 


目前，在 IBM 及其兼容机上保护文件的一种较常 
用方法是，修改文件目录表 ( FCT ) 中目录项的第11字 
节，将其属性改为隐含文件属性，即这样加密后文件 
DIR 时列不出来，但能正常执行。本文将要介绍的加密 
方法就是根据这一思想，在 APPLE 机上进行一系列改 
进，以期达到相同的效果。如果将这种隐含文件放在所 
有其它文件的最前或最后，别人很难发现它的存在；即 
或偶然发现，如果身边没有专门_的軟件工具也很难将 
其谰出 或转为非隐含文件。 

为了说明加密方法的原理，让我们先来看一看 
DOS 磁盘操作系统的目录存放方式。对于标准的 
DOS 3. 3系统，文件目录存放在第$11磁道，卑件名从 
$ F 扇区依次向$ S .1 扇区存放。每一扇区的结'构 如下： 
$ 00未用，$01 ~$ 02为下一文件目录扇区指位器， 
$03 〜 $ S 0 A 未使用， $0 B ~ $2 D 为第0号 FDB 表， 
以下 $2E 〜 $50 、 $51 〜 $73、$74 〜 $96 、 $97~ 
$ B 9、 $ BA ~ $ DC 、 $ DD ~ $ FF 顺次为第 1 至第 6 号 
FDB 表。 

FDB 表<?11> DECRIPTOR BLOCK > 为文件记要 
表，记载着该文件的 T / S 表位置，其结构 为：第 1. 2字 
节是文件内容存故起始位置所在的磁道、扇区号，第3 
字节表明文件类型和是否加锁，第4〜33共计30个字节 
为文件名存放的位置，第34、35字节为文件长度（所占 
扇区數）。 

下面介绍一下加密的基本思 路：欲 使文件变为隐 
含的，而 DOS 又没有相应的功能，为了解决这个矛盾， 
我们可以充分运用控制字符中的 〔 CTRL - H 〕 来实现。 
大家知道， CTRL —H 的功能是将光标左移，因此在一 
个文件名后附加上若干个 CTRL —H (当然直线键入是 
做不到的），就可以在 DOS 列文件目录时，先将厚文件 
名列出，几乎是在同时，光标又因 CTRL—H 而左移，继 
而随后的空格符又将刚刚显示出来的文件名“後盖 
掉”，这样文件名就从屏 幕上“ 消失”了。 

由上所述可知这种加密有以下2个 特点： 

1 、 由于列目录时文件名本身以及表征该文件的各 
个参数（类型、锁否、长度）全被“隐藏”起来，又被放到 
所有文件的最后，别人很难发现该文件，更不易弄清 
“真实”的文件名是什么。 

2、 由于 CTRL - H 在键盘上的功能相当于左移键， 
不能直接键入，因此运行文件名中含有 CTRL — H 的文 


件时，也不能由键盘直接键入调用，从而达到了 一定程 
度的加密效果^ • 

以下介绍一下加密的 步骤： 

<1>首先将要加密的文件以正常文件名存入磁 
盘（长度不多于5个字符）。 

<2>利用 COPY ® PLUS 中的 SECTOR EDITOR 
或 BAG OF TRICK 中的 ZAP 等程序显示目录域道中 
的扇区内容，找到刚存入的欲加密文件的 FDB 表。 

<3>将此文件的 FDB 表复制到目录磁道第一扇 
区的第6号 FDB 表所在位置，其目的是邶此文件放在 
目录磁道的最后，这样，以后无论再存入该盘多少文 
仟，这个被加密文件都能始终“躲”在最后，而不至在列 
目录表时产生“令人生疑”的空行。以后如果再在该盘 
放入要加密文件，可依法炮制，只是要依次书欲加密文 
件的 FDB 表依次放入第5号、第4号 FDB 表位置。 

<4>在新复制 FDB 表中的欲加密文件名所在字 
节后加上若干个 $88( CTRL — H 的 ASCII 字符）。其个 
數为文件名字符长度+ 7,以此来保证隐含清除全部文 
件名，这以后还要保留至少相同數量个空格，因此这样 
加密的文件名字符不得超过5个。 

<5>将旧的 FDB 表消除，方法是将旧 FDB 表的 
第一字节改成 $ FF , 至此加密过程结束。 

以下给出调用这种加密文件的 BASIC 程序，使用 
时只需依据提示键入文件名即可。 

5 D $ = CHR $ (4)： B $ = CHR $ (8) 

10 INPUT**FILE NAME ?"； A $ 

20 N == LEN ( A $ )-1 
30 FOR 1=1 TON 
40 B $ = B $+ CHR $ (8) 

50 NEXT 
60 A $ = A $ + B $ 

70 PRINT“WHICH DO YOU LIKE ?” 

80 PRINT : PRINT *"(1 )RUN (2 )BRUN (3) LOAD (4) 

BLOAD ” 

90 GET A 

100 ON A GOTO 110,120,130,140 
110 PRINT D $ “ RUN”;A $ 

120 PRINT D $“ BRUN ”; A $ 

130 PRINT D $ " LOAD"；A $ 

140 PRINT D $ “ BLOAD ”; A $ 
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150 END 

以上本文只谈了文件名隐含的加密方法，同砰根 
据这种思想，可以将 BASIC 语言文件的部分重要语句 
行（或是锖題或是作者自己最得意之处）隐含起来，以 
此达到保护编程者程序思路独特的专利的目的，对此 
笔者不再赘述，感兴趣的同志只需将要加密的语句移 
至程序最后，在每行末尾加上 REM 语句并紧接着添上 
数个 CTRL—H 和空格即可。 

SZXZtZXXStXZZTtXSZZtZtiZtSXXXStSZZZttSiXXZ 

•趣味程序 • 

游戏程存二則 



广州市逢源路梁兆桦 


本程序是 CEC - I 机游戏程序，稍加改动后也可 
在苹果机 i 运行。运行时，全屏显黑色，四边有一粉红 
色框,框内随机散落十多个彩色点，代表障碍物。另有 
一白点随机出现在框内,如位置偏左(右）,则初速度方 
向向右(左），游戏者用“ r ’、“ + ”键可控制 

它上、下、左、右移动,但任何健也不能使它停下来。它 
不断变长，游戏者的分数也不断增加，屏幕下方用10进 
制显示游戏者分数，即龙身长度。当它的头撞在障碍 
物、屏幕边框或自己身上，，则响铃一声，游戏结束。 

修改$ 60 FC 里的值，可改变游戏的运行速度(值 
越大，速度越慢）。如在苹果机上运行,则下列地址应作 
如下变动:$6061、 $60 A 7、$60 BF 改为 CA ; $6065、 
$60 B 3、$60 C 5 改为 CB ; $ 60 AB 、$60 CB 啓为 CD , 
$ 60 AF 、$ 60 D 1 改为 C 9, 用 “1”、“\!”、“ 1 1”、“1<：”控制上、 
下、左、右移动。 


6000- 

20 

40 

FB 

20 

58 

FC 

A 9 

B 0 

6008- 

8 D 

63 

07 

8 D 

64 

07 

8 D 

65 

6010- 

07 

8 D 

D 1 

05 

8 D 

F 7 

05 

A 2 

6018- 

14 

86 

06 

86 

07 

AO 

00 

84 

6020- 

09 

A 5 

4 E 

45 

4 F 

85 

4 E 

A 2 

6028- 

55 

86 

30 

AO 

14 

A 9 

25 

20 

6030- 

00 

F8 

88 

A 2 

15 

86 

2 C 

A 9 

6038— 

26 

20 

19 

F8 

AO 

12 

F6 

2 C 

6040- 

A 9 

27 

20 

19 

F8 

A 5 

4 E 

2 A 

6048- 

08 

6 D 

28 

2 A 

85 

4 E 

29 

01 

6050- 

D 0 

02 

A 9 

FF 

85 

FC 

A 9 

28 

6058- 

38 

E 5 

06 

85 

FA 

A 9 

00 

85 

6060- 

FB 

AD 

00 

CO 

8 D 

10 

CO 

C 9 


6068 — 

88 

F 0 

08 

C 9 

8 D 

F 0 

04 

C 9 

6070- 

95 

DO 

02 

85 

07 

C 9 

A 0 

DO 

6078- 

20 

A 5 

09 

C 9 

00 

DO 

1 A 

A 9 

6080- 

24 

85 

09 

A 4 

06 

84 

08 

A2 

6088- 

80 

8 A 

A8 

EA 

EA 

EA 

8 D 

30 

6090- 

CO 

C8 

CO 

A 0 

DO 

C8 

CA 

DO 

6098- 

F 0 

A 5 

07 

C 9 

88 

DO 

39 

A 4 

60 A 0— 

06 

88 

88 

88 

A 9 

27 

20 

71 

60八8 — 

F8 

DO 

2 D 

A 2 

55 

86 

30 

A 9 

60 B 0- 

27 

20 

00 

F8 

C8 

A 9 

26 

20 

60 B 8- 

00 

F8 

C8 

84 

06 

A 9 

25 

20 

60 C 0- 

00 

F8 

A 2 

00 

86 

30 

C8 

A 9 

60 C 8- 

25 

20 

00 

F8 

C8 

A 9 

26 

20 

60 D 0- 

00 

F8 

C8 

A 9 

27 

20 

00 

F8 

60 D 8- 

C 9 

95 

DO 

39 

A 4 

06 

C8 

C8 

60 E 0- 

C8 

A 9 

27 

20 

71 

F8 

DO 

2 D 

6018- 

A 2 

55 

86 

30 

A 9 

27 

20 

00 

60 F 0- 

F8 

88 

A 9 

26 

20 

00 

F8 

88 

60 F 8- 

84 

06 

A 9 

25 

20 

00 

F8 

A 2 

6100- 

00 

86 

30 

88 

A 9 

25 

20 

00 

6108- 

F8 

88 

A 9 

26 

20 

00 

F8 

88 

6110- 

A 9 

27 

20 

00 

F8 

A 2 

00 

86 

6118- 

30 

A 4 

FA 

A 5 

FB 

20 

00 

F8 

6120- 

A 2 

BB 

86 

30 

A6 

FA 

E 0 

01 

6128- 

F 0 

04 

E 0 

27 

DO 

07 

A 9 

00 

6130- 

38 

E 5 

FC 

85 

FC 

8 A 

18 

65 

6138- 

FC 

85 

FA 

A8 

E6 

FB 

A 5 

FB 

6140- 

48 

20 

71 

F8 

C 9 

05 

DO 

07 

6148- 

68 

20 

00 

F8 

4 C 

DD 

FB 

68 

6150- 

AA 

20 

00 

F8 

E 0 

27 

DO 

03 

6158- 

4 C 

45 

60 

A 2 

FF 

86 

30 

A 4 

6160- 

08 

A 2 

0 A 

A 5 

09 

48 

20 

71 

6168- 

F8 

F 0 

32 

A 2 

40 

A 9 

20 

20 

6170- 

A8 

FC 

8 D 

30 

CO 

CA 

DO 

F 5 

6178- 

86 

09 

86 

30 

A 9 

00 

A 2 

24 

6180- 

86 

2 D 

20 

28 

F8 

A 2 

03 

FE 

6188- 

62 

07 

BD 

62 

07 

C 9 

BA 

DO 

6190- 

08 

A 9 

B 0 

9 D 

62 

07 

CA 

DO 

6198- 

EE 

68 

4 C 

45 

60 

68 

F 0 

05 

61 A 0- 

48 

20 

00 

F8 

68 

48 

A 9 

20 

61 A 8- 

20 

A8 

FC 

E6 

30 

68 

48 

20 

60 B 0- 

00 

F8 

C6 

30 

68 

F 0 

02 

C6 

61 B 8 - 

09 

CA 

DO 

A 7 

4 C 

61 

60 

90 


61 C 0— 06 06 


43 






本程序运行时，全屏显黑色,下方正中有一炮台, 
按”键分别控制它的左、右移动，按回车键可 
使它停下来，其它键不能改变它的运动状态，按空格键 
放炮。屏幕上方有粉红色的流星向炮台的方向斜飞下 
来，如落在炮台上，则响铃一声，游戏 结束； 如落在地 
上，则成为障碍物，阻止炮台移动。所以游戏4应把流 
星在空中击毁，每击中一颗流星，分数就加 1,( 屏幕下 
方显示游戏者现时分数），然后重新出现另一颗流星， 
游戏继续进行 下去。 

$ 6162 中的值是炮弹与流星、炮台的速度比，如想 
加快炮弹速度，则应增大此值;修改 $61 A 7 中的值 y 可 
改变整个游戏的运行速度(值越大，速度越慢）。在游'戏 
过程中，开炮或流星被击中，都会发出响声。分数用10 
进显示。 
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•竟赛园地 • 

试题 

设计一个程序，由计算机模拟移纸片游戏。如图所 
示，有八个方格子，上层有三个，下层有五个。每层格子 
左右连通，两层之间只有中间一格上下连通。 


现将写有5、4、3、2、1的五张方纸片依图放入下面 
一层的五个格子内，请利用上层三个空格桷五张纸片 
移成从左至右为1，2,3,4,5的排列顺序。 要求： 纸片不 
许移出格外，也不能跳跃相邻的纸片。 

程序要求能打印出每次移动的情旯。打印格式如 


(0) 

000 


54321 

(1) 

003 


54021 

(2) 

403 


50021 


在完成基本设计要_之后，请参赛者再考虑两个 
问題： 

1、 如果五张纸片的初始顺序是随机摆放的，程序 
如何设计？ 

2、 如何以最少的移动步数完成上述游戏？ 
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这是一个动画程序。运行后，有两只晴蜓在空中飞 
舞，不断改变飞行方向。其中的一只可由键盘控制飞行 
方向，按 “ U ” 键 （左上）， “ o ” 键 （右上） ，“，”键 （右下）, 
“ N ” 键 （左下）。 程序： 

10 HGR 2 : HCOLOR = 3： SCALE =1： ROT-O 
20 POKE 232,0 ：POKE 233,96 
30 FOR I =24576 TO 24622 
40 READ D ： POKE I ， D ; NEXT 
50 DIM V (40)， H (40) 

60 V =190 ：H = 35 

70 FOR 1=1 TO 40 

80 V ( I ) = V - INT ( RND (1) * 20) 

90 H = H +5: A = RND ( l ) 

100 IF A >. 5 THEN H ( I ) = H + INT (15 * A ) 

110 IF A < = . 5 THEN H ( I ) = H — INT (15 * A ) 

120 HPLOTH , VTOH ( I )， V ( I ) 

130 NEXT 

140 V =85： H =140： Y =110 ：X = 80： T =0 
200 A = RND (1) 

210 JF A >. 9 THEN 400 

220 IF A >. 7 THEN 500 

225 IF A >. 5 THEN 600 

230 GOTO 700 

300 DRAW 1 AT H,V 

310 GOSUB 1000 ：GOSUB 1500 

320 HCOLOR =0 ：DRAW 1 AT H，V 

325 GOSUB 1600： GOSUB 1500 

330 HCOLOR = 3 

340 RETURN 

400 R0T=0 ： D=0 

410 FOR 1=1 TO 15 

420 V = V -2 ：H = H -5 

430 IF V <50 THEN V =150 

435 IF H <50 THEN H =220 

440 GOSUB 300 

450 NEXT 

460 • GOTO 200 


500 ROT =16： D =16 

510 FOR 1=1 TO 15 

520 V = V -3: H = H +5 

530 IF V <50 THEN V = 150 

535 IF H >150 THEN H = 50 

540 GOSUB 300 

550 NEXT 

560 GOTO 200 

600 ROT 32： D =32 

610 FOR 1=1 TO 15 

620 V = V +2 :H = H +5 

630 IF V >150 THEN V = 50 

635 IF H >220 THEN H = 50 

640 GOSUB 300 

650 NEXT 

660 GOTO 200 

700 ROT =48： D =48 

710 FOR 1=1 TO 15 

720 V = V +3 ：H = H -5 

730 IF V >150 THEN V =50 

735 IF H <50 THEN H = 220 

740 GOSUB 300 

750 NEXT 

760 GOTO 200 

800 DATA 1,0,4,0 

810 DATA 47,38,61,100,72,37,46,55,150,62 
820 DATA 62,62,62,62,62,117,42,44,44,44 
830 DATA 44,36,36,37,37,37,37,37,37,118,49 
840 DATA 55,55,55,55,63,53,46,46,46,46,46, 
46,0 

1000 P = PEEK (49152 )：POKE 49168,0 

1010 P =213 THEN T =0 

1020 IF P =207 THEN T =16 

1030 IF P =172 THEN T =32 

1040 IF P =206 THEN T =48 

1050 IF T = 0 THEN ROT =0 ：GOSUB 1100 

1060 IF T = 16 THEN ROT =16 ：GOSUB 1200 

1070 IF T =32 THEN ROT =32： GOSUB 1200 

1075 IF T =48 THEN ROT =48 ：GOSUB 1400 

1080 DRAW 1 AT X,Y 

1090 RETURN 

1100 Y = Y -2： X = X -5 

1110 IF Y <50 THEN Y =150 

1120 IF X <50 THEN X = 220 

1130 RETURN 
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1200 Y = Y -3 ：X = X +5 
1210 IF Y <50 THEN Y =150 
1220 IF X 〉220 THEN X = 50 
1230 RETURN 
1400 Y = Y +3: X = X -5 
1410 IF Y >150 THEN Y =50 
1420 IF X <50 THEN X =220 
1430 RETURN 
1500 IF D =0 THEN ROT =0 
1510 IF D =16 THEN ROT =16 
1520 IF D =32 THEN ROT =32 
1530 IF D =48 THEN ROT =48 
1540 RETURN 
1600 IF T =0 THEN ROT =0 
1610 IFT =16 THEN ROT =16 
1620 IF T =32 THEN ROT =32 
1630 IF T = 48 THEN ROT =48 
1640 DRAW 1 AT X,Y 
1650 RETURN 

oooooooooooooooooooooooooooooooooooooooooo 

•趣味程序 • 

一个似是而非的程序 

天津市第七印刷厂 张振堂 

BASIC 语言 规定: 在循环中，只允许由循环体内向 
外转移，而不允许由外向内转移。然而，仅仅如此就万 
无一失了吗?请看 下例： 

10 FOR J =1 T 0 100 

20 INPUT “ B = ”; B 

30 IF B <0 THEN 60 

40 IF BD<B THEN BD=B 

50 NEXT J 

60 PRINT “ BD = ”; BD 

70 T =1： S =0 

80 FOR 1=1 TO 4 

90 FOR J =1 TO I 

100 T = T*J 

110 NEXT J 

120 S = S+T 

130 NEXT I 

140 PRINT “ S=” ; S 

以上程序中， 10 〜 5 0 语句是一个单循环，要求用户 


输入若干大于零的数，对其进行比较，选出较大的数。 
其中30语句是条件转移语句 。一 旦数据输完，可由键盘 
敲入零或负数，以示输入结束，程序将从循环体内跳 
出，转移至60语句，打印出最大数值来。应该说，这种由 
循环体内向外转移是符合规则的。 

80〜130语句是一个双重循环，目的在于求1! + 
2!+3!+4!的值。 

整个程序符合语法规则，似乎无懈可击。 

请看运行 结果： 

RUN〆 

B = 2/B=l/B=3 

B=0/BD.= 3 

NEXT without FOR error in 130 

为什么会出错呢?让我们用循环找的概念加以说 
明。在第一个单循环中， FOR 语句使循环变量 J 及有关 
数据进栈（见图一）。循环到第四圈时，由于键盘$入了 
零，程序由80语句跳岀了循环体。虽然规则允许 k 种转 
移，但由于未经 NEXT 语句,循环变董 J 并没有退栈。 
程序执行到80语句，循环变量 I 及有关数据进栈，栈指 
针上移指向这里，而将循环变量 J 压在了栈底（见图 
二）。程序执行到90语句时， FOR J 将会检查整个循环 
找，结果在找底发现了同名循环变量，于是按新数据将 
其改写，并将栈指针指向这里,但这样做的结果会把循 
环变量 I 挤出了循环栈（见图 三）。 执行到130语句时， 
由于找内已无循环变量 I ，故计算机给出错误提示。 

以上叙述说明 ：既使 由循环体内向外转移可能导 
致错误。对这种未经 NEXT 语句转移出循环体的循环 
变量要谨慎用事，重新启用时只可用于单循环或多重 
循环的外层，绝不能用于内层，否则，将导致错误。上例 
中，如将双重循环内层与外层的循环变量名加以掉换， 
使未退栈的循环变量 J 处于外层,就不会发生错误了。 



图一 图二 图三 
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来来来来来来来来来来来来来来来来来来来来来来来来来来来来来来 

青少年是祖国的未来和希望，抓好青少年计算机的使用与普及以被各地市所重视。结合青少年的特点，在本 
期《竞赛试题选登》栏目中，向广大青少年朋友和你们的辅导老师们推荐了“天津市青少年计算机程序设计竞赛 
“小学组试题”，供你彳 n 学习和参考 栏目主持人段文倩 

1990年天津市青少年计算机程序设计竞赛[小学组]试卷 


一、 填空：（20分) 

1、 列出语句标号为50以后语句的命令是_ 

2、 写出四种 BASIC 语言中的函数 _、 

3、 能够满足 INT(X * 100+0. 5)/100 = 3. 82的 X 的范 

围是_ 

4、 科学计数法中 4. 513 E 7 的数值是_ 

5、 INT (5. 18 * 10)/10= _ 

6 、 写出 [4 A +(7 F +3) X 6]+(4 F +9) 的 BASIC 表达式 

7、 写出 （A + B )/20/( B + D ) 的算术表达式_ 

8 、 计算机使用哪种进制_ 

9、 写出 X <30 并且 X 是偶数的逻辑表达式__ 

10、 用 RND ( X )， INT ( X ) 函数编写能产生 40— 60之间 
(包括 60) 的语句 

注:要 注机型_ 

二、 写出下列程序的运行结果 （12 分） { 答案写在题旁 } 

1、 10 A =0 

20 FOR X = 0 TO 10 STEP 3. 3 

30 A = A + 1 

40 PRINT X，A 

50 NEXT X 

60 PRINT X，A 

70 END 

2、 10 M = 2 

20 A ( l ) = 1 ： A (2) = 2： A (3) = 3 . 

30 B (1) = 4： B (2) = 5 s B (3) = 6 
40 A 1= A ( M ) 

50 A 2 = A ( M +1) 

60 A 3 = B ( A ( M )) 

70 PRINT A 1， A 2， A 3 
80 END 

3、 lCTDlMAClO ) 

20 FOR M =1 TO 10 
30 READ A ( M ) 


40 NEXT M 
50 RESTORE 

60 FOR M=10 TO 5 STEP-1 
70 READ A(M) 

80 NEXT M 
90 RESTORE 
100 X = M 

110 FOR M = X TO 7 
120 READ A(M) 

130 NEXT M 
140 FOR 1=1 TO 10 
150 PRINT A(I) 

160 NEXT I 

170 DATA1，2,3,4,5,6,7,8,9，10 
180 END 

4、 10 A = 2：B=4 

20 FOR 1=1 TO 3 
30 PRINT A，B 
40 A = A + B 
50 B=A + B 
60 NEXT I 
70 END 

三、根据程序划出框图，并写出输入 X =0 时的执行结 

果 (8 分） 

10 A= 10：B=5 
20 INPUT“X=，，;X 
30 Y = A —B 
40 IF X<0 THEN 60 
50 Y=A+B 
60 PRINT Y 
70 END 

四、编程题 （15 分） 

编一程序能产生如下图形 
要求：（1)不能只用 PRINT 语句 
(2) 必须使用双重循环语句 
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222 

33333 

444444 

55555555 

五、编程题 （15 分） 

统计某个班有二十个学生的成绩 
要求:1.用 INPUT 语句输入某一科的成绩 


成绩范围是0〜100分，范围以外的成绩视为错 
误应重新输入。 

2. 打印出全班这科成绩和全班平均分。 

并能修改任何人的成绩，打印岀新的平均分。 

3. 对全班学生的成绩从大到小排序并打印出来。 

4. 打印出平均分以上包括平均分的学生人数。 

5•画岀程序设计的框图。 


一九九 o 年天津市青少年计算机竞赛操作技能试卷 


小学组（一） 


. 小学组（二） 


按以下字母输入，要求在三分钟内完成，错误不能 
超过四个字符，达到以上条件得30分，否则得0分 
注意〈1 >每一行开始有一个行号 
〈2〉每一行结束打回车 
<3〉空的 堆方是 空格键 

1 ASDF ASDF ASFD ASDF ASDF ASDF 

2 0987 0987 0987 0987 0987 0987 0987 

3 BCDEFGHIJKLMNOPQRSTUVWXYZA 

4 BCDEFGHIJKLMNOPQRSTUVWXYZA 

5 THIS IS A PEN . IS THIS A PEN ? 

6 THAT IS A PENCIL . IS THAT A PENCIL ? 

7 PENCIL 


按以下字字母输入，要求在三分钟内完成，错误不 
能超过四个字符，达到以上条件得30分，否则得0分 
注意〈1>每一行开始有一个行号 
〈2> 每一行结束打回车 
〈3〉空的地方是空格键 

1 QWER QWER QWER QWER QWER QWER 
2儿 KJ JKLJ JKLJ JKLJ JKLJ JKLJ 

3 CDEFGHIJKLMNOPQRSTUVWXYZAB 

4 CDEFGHIJKLMNOPQRWTUVWXYZAB 

5 THIS IS A DESK . IS THIS A DESK ? 

6 THAT IS A TABLE . IS THAT A TABLE ? 

7 TABLE 


•辅助教学与研究 •. 

用数学的观点来谈谈模块化原理 

万县师范专科学校张利川 . 


模块化原 理是裎 序设计的一基本原理，这一原理 
我们可用数学观点加以论证。 

我们设函数 A ( x ) 来定义问题 X 的复杂程序，函 
数 B ( x ) 来定义问题 X 所需的工作量（及时间量）。现 
在，对于一程序中存在的两个问题 XI 和 X 2, 如有： 

A ( X 1)> A ( X 2). ① 

篡然 有： 

B ( X 1)> B ( X 2). ② 

根据数学中的不等式的性质可得一规律不 等式： 

A ( X 1+ X 2)^ A ( X 1) + A ( X 2). ③ 

也就是 说：如 果对一问题由 XI 和 X 2 两个问题组成，那 
么它的复杂程度应大于分别考虑每一问题的复杂程度 


之和。那么，我们可以根据不等式①一② 一③可 得到工 
作量的不 等式： 

B ( X 1+ X 2)> B ( X 1)+ B ( X 2) 

此结论也就是樓块化的根据。 

但是，实际上一个问题也不能无限地分割下去，因 
为我们还要考虑到模块间的接口问题，而接口的工作 
量与软件的开发成本是成正比的，要減少开发软件的 
成本，就必须选取适当的模块数，而适当模块数的选取 
就要根据模块间的耦合度和模块的内聚度来确定了。 

总之，我们可采用数学知识来理解和掌握软件的 
糢块化原理。 


48 






学习英语，记单词是 
一大难关.不管大、中学生 
和成人，都是如此。如何破 
此难关，是一个老大难的 
科研课题，很多人都在研 
J 究，创造了许多良好的方 
市法，但在诸多方法中，以著 
林名英语权威、中国人民大 
调' 学英语系教授许孟雄老先 
生在介绍王同亿（曾编“英 
'f 汉辞海”等十多部中外大 
词书，雅号王十国）先生的 
《初中英语速记》的序言中 
寸 介绍的，马克思精通几国 
U 外语，总结的翻译法，即语 
华 言比较法，是学习外语的 
^ 根本方法，语言比较，也是 
学外语的根本目的。不仅 
王先生把此法和其它一些 
方法融在速记法中，而且， 
风靡全球华人地区的英语速成教材，台湾扶忠汉先生 
编的《双向式英语》课本中，也深刻地体现了语言比较 
法的 精神。 

但是，好的方法，还要好的工具帮助，才能充分发 
挥作用。《双向式英语》就是利用了磁带和录音机，才得 
以实现在非外语环境中，加强听说的功能，得到语言速 
成的效果。而广大大、中学生和科技人员，不仅要会听 
说，还要会读、写、而且实际上似乎更偏重文字的读、 
写，这就需要更好的工具，才能在死的书本之外，更快 
地提高文学的读、写能力，在众多的教学工具中，只有 
微机才能负此重任。 

本软件吸收了速记法的精神.利用了微机的强大 
功能,才得以更好地体现教育学、心理学的各项基本原 
则和要求，如循序渐进，因才施教，激发兴趣，多种刺 
激，反复刺激.及时反馈等等。 

本软件是针对计灯机深入家庭设计的，系统要求 
一台中华学习机，一台驱动器，一台显示器或电视机即 
可。 

本软件收集初中英语1 6册全部单词、短语和 
日常用语，不仅可供各年级、各学期跟随课堂教学进度 
作练习、复习和检查用，也可作各学期期末或毕业时总 
的复习、练习和检查用，还可解决教师没时间、家长不 
俺英语无法检查的困难。 

本软件练习、复习和检查的方式，灵活多样，且都 
贯穿了语言比较的思想,这些方式是： 

一 ，列单词清单，把英语单词和汉语词意同时列 
出，供全面系统复习之用，但可采用1——255种速度， 
以因人因时而变化，取得最佳效果。 

二，汉语提示填空，单词中随机缺少一、二个字母， 
难度较低，易于提高学习的积极性。 

三,汉语提示，英语定时闪现后辨认选择单词，汉 
语提示意义一目了然，英语闪现，激起注意单词字母结 


构和顺序，然后消失。屏幕显示四个相似单词供选择。 
虽然，闪现后立即回答.比较容易，但闪现时的刺激和 
练者的求胜心理，将使之精神高度集中，出现一组似是 
而非的单词，将迫使其暴露记忆中的薄弱环节，促其建 
立较深刻的短期记忆。 

四，汉语提示，英语闪现，字母组合，汉语提示，英 
语闪现意义同前。但单词字母，随机分散在屏幕各处， 
由练者组成原词回答，这就要求在明确词义的基础上， 
更多地回忆音、形，使词的义、音、形紧密地结合起来， 
此后,逐渐增加英语思维的成分。 

五,汉语提示，辨认选择.只有汉语提示，四个相似 
的单词供辨认选择，难度提高，记忆加深。 

六，汉语提示，字母组合，只有汉语提示,字母随机 
分散在屏幕各处，由练者组词输入，难度再度提高.记 
忆又加深一步。 

七,汉译英，只有汉语，由练者输入英语单词,必须 
更深一层的记忆， 

A . 填空，无汉语提示，只显英语单词，但缺字母， 
这就开始脱离汉语，逐渐建立以英语为基础的思维活 
动，能以英语进行日常思维活动，是语言纯熟的最高标 
准。 

九，字母组合，屏幕上只有分散在各处的字母，要 
组成词，就必须有较深一层的以英语为基础的思维活 
动。 

十，英译汉，经过以上练习，这就不难了。但汉字输 
入慢，一般也可省去 

填空和字母组合，有时可有多种回答，但本软件以 
每课为单位，故答案是唯一的，每个单词，可随机出现 
I ——3次任选，如果错误超过三分之一，则强迫全面 
_ 复习后，才能再答。 

如果以计时，限时和快速三种时态与之配合，形式 
可达二十余种供选用，以适应不同需要。 

这些形式，是其它任何教学手段很难实现，甚至根 
本不可能实现的，尤其是，除列清单外的所有形式中， 
复习与检查，始终紧密结合，答错了立即纠正，并要记 
住，再次参予检查，且答对是应该的，不再记分，答错了 
反而还要扣分。就是列清单，虽不对复习本身进行评 
价，但复习的次数，总是记录在案备查，这对分析成绩 
升降原因，提供了可靠的依据，这些都不需要老师和家 
长在现场监督，既不可能打小抄，也不可能养成机械地 
记忆顺序或部位来投机的坏习惯。 

一般课堂教单词，是写在黑板上，先读后讲，即形、 
音、义模式，本软件是义、音、形模式，。看见汉语提示和 
不完整的英语雏形，嘴里就要拼读.脑子里就会不断地 
回忆与搜索缺少的部分，这就把义、音、形紧密地结合 
起来，弥补了课堂强调认字跟读、可能出现会念却不知 
其义的缺陷。 

单词虽然 具有' 一定的意义，但只有组成句子，才可 
表达完整的意思。所以，每个单词后.必须跟一个课本 
中的例句，尽管背单词可以集中快速地进行，但始终避 
免孤立地背，这就自然地把词、句和语法有机地结合起 

来。 

要检查学习情况，开机便知。 
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• 应用系统简介 • 

医院药剂管理系统简介 

徐根远 

医院药剂管理系统是由潍坊市中医院研制，潍坊 
计算机公司协助开发的综合信息管理 系统。 

该系统硬件由前台、后台两部分组成，前台可采用 
简易 pc , 用于药分划价及存 e ， 也包括一定的药方汇 
总和查询功能。后台采用 286( 也可用 PC / XT 及其兼 
容机）用于药荆管理。包括处方查询、仓庠管理、计划统 
计及财务核算等功能。前后台可通过盘片传送数据，也 
可通过网络或多用户的服务器实现数据共享。对业务 
量较少的用户，还可以前后台共用一台机器（带硬 盘）， 
配相应的前后台软件，通过分时使用而实现前后台管 
理。 

根据前后台的特点和管理要求，前台支持系统软 
件为 DOS 2. 1及 CCDOS 4. 0( 或其它10行显示数字系 
统）。编程语言采用编译 DBASE I 数据库系统。 

后台支持系统软件为 DOS 3.3 及 ECBIOS (或具有 
25 疔显示 的其它汉字系统）。编程工具采用 FOXBASE 
+多用户管理系统。对前后台共用一台计算机的用户， 
可直接采用后台支持软件。 

管理（应用）软件由前后台两部分组成，包括5个 
子系 统：前 台药方管理、后台药品管理、仓庠管理、计划 
统计、财务帐务处理。 

前台药方管理包括药方划价、药方查询和药品汇 
总等模块。其主要软件产品为药方价格和传给财务的 
药方数据。 

药品后台管理包括药方磁盘接收、药方记帐、曰结 
及报表输出等功能。 

药方磁盘接收用于接收前台的药方数据，这样財 
务可直接使用药方数据，从而简化了财务记帐（只需记 
药方号）。药方查询.既可按单项条件查询，也可桉多项 
组合条件查询，可选择的条件包括处方号、姓名、曰期 
等项目。该模块输出的主要报 表有： 

用药汇总表，反映各种药品的绡售情;兄；药品铕售 
情况表反映药房各类药品 的当曰 和累计收入 情％; 销 
售成本结算单.反映各类药品庠存金额，进销售价差价 
率、销售金额和销售成本等项内容。 

仓库管理包 括：仓 库记帐、结帐及打印等功能■•其 
中记惟包括入庠、出库、加工制剂及调价的记帐。结帳 
主要生及打印出庠、入库、调价、核算单。出丰核算单反 
映出庠药品的数量、进价、绡价、进销差价、入库核算单 
即入库损溢报告单，反映入庠品种与计划价的差价，即 
损 溢情况 。调价核算单即调价损溢报告单，反映因药品 
谰价对库存药品金额所造成的损溢情况。这些核算单 
均直接为财务服务，财务可据此制作转帳凭证- 


本子系统的主要软件产品除上述核算单外，还包 
括仓库收付存汇总表，反映每个品种的期初库存本期 
收支及结存情％。此表可直接用于与仓库进行帐实核 
对及与财务进行金额核对。仓库明细帐与人工保管帐 
一致，反映一个药品的购绡存过程和结果。库存排队 
表，就是库存限额控制表，反映各品种库存是否合理， 
从而为建立合理牟存提供了 一定的依据。 

计划统计子系统主要为制定计划和业务统计服 
务，包括制定采购计划、打印计划编制表、打印重点药 
品统计表、打印报告表等功能。制定采购计划时，系统 
将自动提示上期出入库及期未结存。重点药品统计表 
逐日统计各重点药品的用药情况。业务报告表综合反 
映药剂科的业务收支情况，既可反映一月、一季、一年， 
也可反映任意月份范围的业务情况，反映的业务包括_ 
各类药品出库、入库、结存、调价、进货盈亏、盘存盈亏 
及 加工制 剂情％等多项内容。 

财务、帐务处理子系统，包括科目记帐、结帐；打印 
本期、本月、本年总帐科目汇总表，打印对帐表、打印明 
细帐等功能。其中科目记枨即将记帐凭证、己入计算机。 
各个科目汇总表不仅包括通常的借方金额和贷方金 
额，而且还包括余额，因此可代总帐使用。打印明细帐 
包括打印任意科目的明细帐，其格式为三栏式并符合 
财务制度规定。对帐表是送给帐务科的汇总表，反映药 
剂科各有关科目的增減变化。 

为了使用方便，并使系统完备，本系统还提供了初 
次使用和服务处理等其它辅助功能，初次使用主要为 
建立一些基本数据库，包括药品类别、药典庠及科目汇 
总库等相对固定的数据库。而服务处理则包括修改口 
令、数据备份、恢复、重建索引等数据保护和系统维护 
类工作。 

作为一个综合管理系统，本系统有如下 特点： 

1. 药方划价、处方查询、仓库管理、计划统计、财务 
核算、财务管理合而为一，处方划价数据直接为财务核 
算服务，仓庠管理结果作为计划统计的依据，仓库有关 
核尊单直接为财务所用等等，实现了各子系统的数据 
共享，使药剂计算机管理达到系统化。 

2. 系统可自动生成调价损溢报告单，入库损溢报 
告单、出库核算单、成本结帐单等核算类表格，并可直 
接转入财务帐户，实现了药剂核算的自动化。 

3. 数据录入的屏幕格式采用‘‘类表格”窗口格式， 
将屏幕做成一个“表”。表头及项目名称保持不变，项目 
内容在窗口中可随意滚动，这样数据输入时，滚行不滚 
屏，从而避免了因卷行造成的操作疲劳。 

4 .数据编辑功能方便灵活，增、删、改、跳跃、查看 
一体化。输入数据时可直接修改，修改完直接输入 。还 
可以跳到任意记录查看修改记录内容。避免了传统的 
增、删、改分设、进出不同模+块的麻烦。 

5. 硬件配置方便灵活，前台可配简易 PC , 后台既 
可配286,也可配 PC / XT 。对于业务量小的用户还可 
以配一台计算机而实现前后台管理。 




